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Capitulo 1 
INTRODUCCION 


Este libro no está dirigido a los principiantes sino a los que ya ha- 
yan utilizado programas en código máquina publicados en libros 
O revistas y sientan la necesidad de profundizar en ello por sus 
propios medios. ; 

Para aquellos que todavia se muestren interesados, este libro no 
es una tesis sobre códigos de instrucciones u operaciones internas 
del Spectrum. Si Vd. no lo tiene aún, deberá conseguir un libro que 
explique detalladamente las funciones del microprocesador 2 80, al- 
gunas de las cuales serán explicadas en el presente libro pero otras 
serán omitidas a pesar de su familiaridad o simplemente porque 
no habrá oportunidad de detallarlas. Se incluye un cuadro sinóptico 
de las instrucciones disponibles y de sus tiempos de ejecución 
Sin embargo, no se aborda el tema de la programación de perifé- 
ricos, ni del registro vector de interrupción, ni tampoco del registro 
de refresco de memoria. Mi propósito es presentar una introducción 
a los programas en código máquina que puedan conjugarse con el 
BASIC, el cual supongo que será ya bien conocido por el lector 

¿Por qué razón debe utilizarse el código máquina? 

Para gozar de una libertad total frente a las limitaciones del 
BASIC y de un notable aumento en la velocidad de ejecución. 
He incluido una rutina para tratamiento de conjuntos numéricos 
(Capitulo 10) que es aproximadamente 125 veces más rápida que 
su equivalente en BASIC (y luego se indica cómo se puede aún 
doblar la velocidad). Por otro lado, los errores en código máquina 
se manifiestan de una forma mucho más rápida. 

Para los programas en código máquina, he utilizado un simple en- 
samblador de Picturesque. 

Recuerde siempre que si Vd. puede ver una manera lógica de 
resolver un problema, esto significa que el problema puede ser 
resuelto. 
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Lo más dificil para un principiante es llegar a la solución, per- 
severar en su búsqueda hasta que el último error haya sido eliminado 
y el programa funcione correctamente. 

No intente, al menos al principio, pasarse más de una o dos horas 
de un tirón con ello, y procure siempre tomar nota de todos sus 
errores. Después de unas semanas, los peores momentos de nervios 
habrán pasado ya y Vd. se habrá familiarizado con el código 
máquina. 

Ante cualquier problema, escriba exactamente lo que quisiera 
conseguir y después trace los diagramas de flujo. Si no puede resol- 
ver una pequeña parte del problema, guárdela de momento en una 
cajita —es decir, apartada— y continue con el problema principal. 
Después vuelva a trabajar con los problemas apartados como si 
fueran tan importantes como el problema principal. 

Finalmente, no olvide esto: el verdadero programador se manifies- 
ta en una de estas dos situaciones: en las p. ofundidades de la deses- 
peración porque el programa no funciona o en exaltado júbilo por 
conocer la causa que impide que el programa funcione. 
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Capitulo 2 
LA PROGRAMACION 


«Un ingeniero fue llamado desde lejos. La maquina no 
funcionaba. El estudió el problema. Pidió un martillo. Le 
propinó un formidable golpe a la máquina. Funciono 
Más tarde llegó la factura: 


Viaje y transporte 10.000, — 
Golpear la máquina 5,- 
Saber qué y dónde golpear 100.000, — 

TOTAL 110.005 ptas, (+ 1.T.E.)v 
(«Modernised Apocryphal») 


La programación es un arte más que una ciencia. La ciencia, 
no obstante, también forma parte de ella ya que las reglas impuestas 
por las instrucciones en código máquina y por cualquier sistema 
operativo no admiten flexibilidad. Pero la presencia de los mejores 
ingredientes no implica necesariamente un buen resultado en térmi 
nos culinarios cuando el cocinero es un gorila, sino que, por el 
contrario, un gran cocinero sabrá lograr un resultado excelente a par 
tir de los principios menos prometedores. 

Hay una constante acción reciproca entre ocho factores 


— Fiabilidad 
Sencillez 

—Facilidad de comprobación 

— Velocidad 

— Tamaño 

— Documentación 

— Accesorios del programa 

— Especificaciones del programa 
5 n 


LA FIABILIDAD DE UN PROGRAMA 
Conjetura de Djikstra: 


Si un programa tiene n instrucciones, cada una de ellas con una 
probabilidad p de que cumpla su cometido, la probabilidad de que 
el programa funcione correctamente es del orden de p». 

Si el programa forma un bucle con L vueltas, entonces la pro- 
babilidad es del orden de p”, lo cual significa que si p no es igual a 
uno el programa no merece ser ejecutado. 

Cada defecto en un programa debería ser investigado, explicado y 
corregido. Un programa defeciuoso no merece ser utilizado. Una 
coma mal situada ha costado a veces millones. 


LA SENCILLEZ DE UN PROGRAMA 


No tiene ningún mérito realizar programas innecesariamente com- 
plicados. Lo más complicado puede siempre ser dividido en unas 
Cuantas partes y éstas, a su vez, pueden ser reducidas a partes más 
sencillas todavía. Yo creo que una buena forma de comprobar un 
programa es realizar el listado desde las instrucciones de salto a las 
etiquetas más adecuadas. Los resultados suelen ser manifiestamente 
provechosos. 


LA FACILIDAD DE COMPROBACION DE UN PROGRAMA 


Se ha escrito ya mucho sobre este tema y todo lo que voy a 
señalar aquí es que la sencillez en la estructura facilita mucho la 
comprobación de un programa. Puede haber más combinaciones 
de bits en sólo 40 bytes que átomos en el universo. 


LA VELOCIDAD DE EJECUCION DE UN PROGRAMA 


Cada instrucción precisa de un tiempo finito para ser ejecutada, y 
existen siempre varias combinaciones posibles de instrucciones que, 
mezcladas, pueden producir el mismo resultado. Si observa que una 
parte de un programa parece especialmente lenta en producir resul- 
tados, examínela detenidamente para ver qué bucles hay dentro de 
otros bucles. El aumento de velocidad puede requerir cambios en la 
estructura y repercutir, por tanto, en un programa más largo. 

12 ) 


EL TAMAÑO DE UN PROGRAMA 


«Cualquier persona puede construir un puente pero únicamente 
un ingeniero puede construir adecuadamente un puente». 

El tamaño de un programa es la suma de dos partes: las in: 
trucciones y el conjunto de datos. 

Los datos no deberian formar parte de un programa excepto, 
quizás, en programas de prueba. El programa deberia trabajar con 
ayuda de un puntero que localizara los datos necesarios en el lugar 
donde éstos se encontraran y permitirles que cumplieran su misión. 

El número de instrucciones puede ser casi siempre reducido. 
Cuanto más directa sea la construcción del programa, más efectiva 
y fácil será esta reducción. 


LA DOCUMENTACION 
Un programa o una subrutina desprovista de una documenta 
ción adecuada puede tener muy poca utilidad. Se pueden retener 
en la memoria los detalles de utilización de un programa durante 
Unos tres meses pero, una vez transcurridos éstos, el programa pre 
sentará un riesgo elevado de fallar cada vez que se utilice nueva 
mente. 
La documentación no consiste tampoco en una gran obra, sino 
que tan sólo es preciso que conste de: 
Lista de las condiciones de entrada — a) registros 
b) posiciones especiales 
Lista de las condiciones de salida a) registros 
b) posiciones especiales 
c) registros protegidos 
d) estado de los señal 
zadores (banderas o 
«flags») 


Breve descripción de la función 

Todo esto, junto con un listado y un diagrama de flujo, debe 
ría guardarse en una buena libreta de notas con tapas rigidas. Si 
puede guardar también el código fuente original en cinta, mejor 
todavia. Yo suelo guardar mensajes en los mismos casetes y 
parece que da buen resultado. 


LOS ACCESORIOS DEL PROGRAMA 


Cuando se habla de lo que se necesita además del programa 
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para ejecutarlo, sin demasiada fantasia, se puede decir que se trata 
de los periféricos necesarios además del televisor. Debe adecuarse 
siempre la presentación al dispositivo de salida que vaya a utilizarse. 
Lo que podria ser muy impresionante en destellos y color tendrá 
Un aspecto muy diferente en una impresora ZX. 


LAS ESPECIFICACIONES DEL PROGRAMA 


Este tema se ha dejado para el fina! porque todo lo demás le 
afecta y queda afectado por las especificaciones. Deben darse varias 
Vueltas al asunto hasta llegar a un compromiso aceptable. 

Algunos aspectos particulares merecen ser destacados si Vd. está 
preparando un programa para otra persona: 


a) ¿Entiende Va. bien lo que él le dice que necesita? 

5) Lo que dice que necesita, ¿es una expresión verdadera de lo 
que realmente necesita? Recuerde que Vd. y esa persona han de 
tener una coincidencia de apreciaciones sobre el problema que ha de 
resolverse, 

€) ¿Puede Vd. ver el problema como otro planteamiento general 
que haya resuelto antes? O, dicho con otras palabras, ¿ha soluciona- 
do Vd. algo como esto ya? ¿Será este problema el primero de una 
serie? ¿Seria más conveniente escribir un programa más general 
para prever futuras necesidades? Por ejemplo: dada la necesidad de 
trabajar con aritmética de hasta 7 bytes, ¿no seria mejor prever so- 
luciones generales para N bytes y luego asignar el valor 7 a N para el 
caso específico? 

4) Si el problema es muy amplio el tiempo empleado en diseñar 
la base de datos puede significar luego un ahorro de tiempo a la 
hora de manejar los propios datos. Todos los datos que se refieran a 
un tema concreto deberian almacenarse juntos, para poder acceder a 
ellos a través de un registro de página. Los diferentes valores dados 
al registro de página se utilizarán para acceder a los distintos datos. 

el Cuando ya cuente con un esquema de la solución, tendrá 
también algunas preguntas que hacerse. Por lo tanto, vuelva a a) y 
comience de nuevo. 
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Capitulo 3 


LAS INSTRUCCIONES 


Los códigos de las instrucciones y sus influencias sobre los seña 
lizadores (banderas/«flags») están condensados en las figuras 3.1 y 
3.2, junto con las combinaciones de direcciones permitidas. Estas 
tablas no sustituyen a los libros mencionados en el capítulo 1. 


Disposición de la Figura 3, 1: 
AAA 
columna descripción 


1 Mnemónico de la instrucción 
2 Operación simbólica 
3 Combinaciones de direcciones permitidas (donde están 


permitidas dos tipos de éstas, los dos grupos posibles 
se hallan separados por un espacio). 


Los números colocados debajo de algunas direcciones indican 
los tiempos de ejecución de la operación asociada (en ciclos de 
reloj del ordenador). 


N indica que puede utilizarse un valor de 1 byte. 
NN indica que puede utilizarse un valor de 2 bytes. 
(NN) indica que puede utilizarse la dirección de un byte. 
d  esel desplazamiento de 1 byte utilizado con un registro 
de página. 
DISP es el desplazamiento en el salto hacia una instrucción 
cercana. 
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Figura 3.1b 
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Figura 3.1c 


¿OQUES, REPETICIÓN: CANGA y COMYANACIUT 
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LA PILA («stack») 


La pila está formada por un grupo de elementos de memoria, 
de longitud variable, que puede almacenar datos mediante el sis- 
tema «LIFO» («last-in-first-out» = último en entrar, primero en salir). 


Es como una pila de cartas, la última que se coloca encima es la 
primera que debe quitarse. Pero para complicar un poco más las co- 
sas, la pila se encuentra situada en la memoria en forma inver- 
tida, es decir, la parte alta de la pila (donde se introduce el último 
dato) está situada en una dirección más baja que la parte baja de la 
misma (donde se aloja el primer dato introducido). El puntero de 
pila («SP», «stack pointer») es un registro de 16 bits que indica 
siempre la dirección del último dato introducido en la pil 

Normalmente se utiliza la pila para almacenar direcciones de retor- 
no de subrutinas, en forma de un par de bytes. Una instrucción 
CALL coloca el par en la pila (y decrementa el valor de SP en dos 
unidades) y otra instrucción RET recupera el par de bytes (e incre- 
menta el valor de SP en dos unidades). Sin embargo, existen tam- 
bién otras dos instrucciones que utilizan la pila: PUSH y POP. 
Cuando se utiliza PUSH con un registro de 16 bits, sus dos bytes 
son colocados en la parte alta de la pila y se decrementa el SP en 
dos. La instrucción contraria es POP, la cual coloca los valores de 
los dos últimos bytes de la pila en un registro de 16 bits, incre- 
mentando, al mismo tiempo, el valor de SP en dos unidades. 

El uso repetido de PUSH reducirá eventualmente SP hasta que 
llegue a sobrescribir sus programas o datos y entonces pueden apa- 
recer algunas consecuencias poco divertidas que suelen terminar en 
Una puesta a cero del sistema. 

Mientras que los POPs y los PUSHs se compénsen entre si, 
el puntero SP no se descontrolará. Normalmente son suficientes 
unos 200 bytes para la pila aunque cop subrutinas profundamente 
anidadas o con una programación más avanzada que la tratada en el 
presente libro, se necesitaria quizás algo más que esto. Recuerde que 
cuanto más alta sea la dirección inicial de su programa, menos es- 
pacio le quedará para la pila 

Si POP y PUSH se desequilibran durante la ejecución de una ruti- 
na, el resultado será que la subrutina no podrá retornar correcta- 
mente (un fallo muy común en los principiantes). Sin embargo, 
si al entrar en la subrutina se almacena el valor de SP en alguna otra 
dirección (¡que no pueda ser sobrescrita por la pila!), siempre podrá 
salirse correctamente del más profundo nivel de anidaciór. de la 
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subrutina, mediante la restitución del valor de SP y la ejecución 
de la instrucción RET. Por ejemplo: 


GRAFS LD (DIRECCION), SP 


SALIDA LD HL(DIRECCION) 
LD SP, HL 
RET 


_ Todo lo que habia en la pila sigue todavia aili, aunque no se 
utlice y sea después sobrescrto por las subsiguientes instrucciones 
USH. 
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Capitulo 4 
LA REPRESENTACIÓN DE NUMEROS 


«Cuando yo utilizo una palabra», dijo Humpty Dumpty en 
un tono despreciativo, «significa exactamente lo que yo he 
escogido que signifique, ni más ni menos.» 

«La cuestión es», dijo Alicia, «cómo puede usted hacer 
que las palabras tengan significados tan diversos.» 

«La cuestión es», dijo Humpty Dumpty, «cuál de ellos debe 
ser el correcto. Esto es todo.» 

[Alicia a través del espejo.) 


Dado el contenido de un byte cualquiera, poca cosa puede de 
cirse de él aparte de su valor, Su significado depende del progra 
mador o del programa que dieron al byte su significado particular 


del registro F («Flags» = señalizadores), 
in en la figura 3.3 y además posiblemente 
deberá retroceder en el programa para determinar qué operación y 
en qué dato alteró un bit determinado del byte. 


Ejemplo 2 

Puede ser parte de un número en el sistema de coma flotante del 
Spectrum (ver figura 4. 1). Antes de asignar un significado al byte, 
debe determinar de cuál de los cinco bytes posibles se trata. 
Ejemplo 3 

Puede tratarse de un byte correspondiente a un número entero 
de 16 bits. De nuevo cabe preguntarse: ¿de cuál de los dos bytes po- 
sibles se trata? 
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exronenre CARACTEMSTICA DE 4 BYTES 


pmeccion aja * eu punto LA COMA) BIMARIO ESTA SITUADO ENTRE EL BITI DIRECCION ALTA! 
VEL GDEL BYTE MAS SIGMIICATIVO DE LA CARACTERISTICA. 


VER EL MANUAL DEL SPECTRUM. CAPIULO 24 


Figura 4.1 


Ejemplo 4 

Puede ser un auténtico valor de un solo byte, como un carácter 
ASCII o bien un carácter propio del Spectrum. En este caso el signi- 
ficado puede deducirse de la figura 4.2. Nótese que si se utiliza un 
interfaz del tipo RS232/V24, necesitará seguramente insertar unos 
códigos de control de transmisión y disponer adecuadamente el bit 
más significativo de cada carácter ASCIÍ de acuerdo con la paridad 
requerida por el periférico. 


Ejemplo 5 

Puede ser un código de instrucción o bien parte de él. Si empieza 
a descifrarlo desde un lugar incorrecto, el resultado será un galimatias. 

Partiendo de un solo byte no hay manera de conocer lo que éste 
significa. Sin embargo, si se puede determinar la posición en la que 
se inicia el programa en código máquina, el resto del programa segui- 
rá de una forma lógica y una vez en marcha su ordenación se esta- 
blece automáticamente por el hardware. 


LOS NUMEROS EN COMA FLOTANTE (ver figura 4.1) 


Lea el manual del Spectrum (Capitulo 24). Lo que sigue son 
normas para trabajar con números en coma flotante. 

El signo de la caracteristica está en el byte con dirección más 
baja. 

Cuando trabaje con números en coma flotante, debe siempre 
ajustar la magnitud del exponente de tal forma que el bit posterior 
al bit de signo de la caracteristica sea el inverso del bit de signo, es 


26 
) 


- BYTE - 
INTERPRETACIÓN DEL 
VALOR DEL BYTE 7]s]s][+[s]2]+To 
braga rua coruna 
CODIGOS Asc Cana creneS 00 
la ¿ Pje js 
¡Sr tod esla Jees] 
ee Jen [50 [sa 
2 'ca|varisrn|era] 
, *s la] 
* $ [7] 
s > 
. + 
7 < 
YY] 


[e] 
m 
P 
E 
£ 
h 
a 


TASA Y 
8 ESTOS CAPACTERES SON 
VAMABLES NACIONALES. 


Figura 4.2 


* LOS ESPACIOS ENCLMKALOS. 
POR LINEA MAS GRUESA 
INCLUYEN LAS MDICACIONES 
DELOS GHÁFICOS UEFIMiDOS 
POR EL USUAMO 


27 


decir, que la característica puede empezar por 01 o bien por 10, pero 
nunca por 00 ni por 11. 

Para sumar o restar números en coma flotante, primero deben 
igualarse los exponentes (desplace la característica del número menor 
hacia la derecha hasta que su exponente sea incrementado) y des- 
pués sume o reste las características como sea preciso y corrija el 
exponente si es necesario. Este método de desplazamiento para 
igualar exponentes se llama normalización. 


LA MULTIPLICACION Y LA DIVISION DE NUMEROS 
EN COMA FLOTANTE 


1) No lo haga, a menos que se vea obligado a ello. 
2) Si debe hacerlo: 
a) sume o reste los exponentes 
b)  multiplique o divida las caracteristicas; o bien: 
Cc) ¡deje al BASIC que lo haga por usted! 


LAS ESTRUCTURAS DE DATOS 


Las estructuras de datos pueden ser tan sencillas o complejas, 
largas o cortas como se desee, pueden enredarse o puede encontrar. 
se un lugar para alojarlas. Hay una solución para cada tipo de pro- 
blemas. 

Supongamos que deba almacenarse una gran cantidad de datos 
alfanuméricos. Tenemos A-z, A-Z, 0-9, espacio y puntuación. Si in- 
troducimos un carácter SHIFT para distinguir entre mayúsculas y 
minúsculas y colocamos los números en el grupo contrario a la pun- 
tuación, podremos comprimir la totalidad del planteamiento en 40 có- 
digos distintos. De esta forma, 40 * 40 * 40 = 64000 y 16 bits en 
2 bytes tienen un valor máximo de 65535. Por el precio de algunos 
códigos podemos tener tres caracteres donde antes había sólo dos. 
Por tanto, logramos un incremento del 50 % en la capacidad de 
almacenamiento. 

Tenemos ahora un caso parecido: existen en total 26 * 26 = 676 
pares de letras posibles: aa, ab, ac, ... zx, zy, zz, los cuales no exis- 
ten en su totalidad en ninguno de los idiomas más corrientes. Posi- 
blemente, para una aplicación concreta, sean necesarios menos de 
256 pares, con lo cual la introducción puede ser codificada a dos le- 
tras por byte, con el resultado de doblar la capacidad de almacena- 
miento. 
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Cuando se manejan grandes conjuntos o matrices de datos nu 
méricos, de los cuales muchos elementos son nulos, debe procurarse 
encontrar la forma de tratar los datos no como matrices sino utili 
zando únicamente como los elementos no nulos. Esto será quizás 
algo más lento pero, al menos, resolveremos el problema 


LA ARITMETICA CON Y SIN SIGNO 


La aritmética con signo utiliza el bit más significativo del valor 
para indicar el signo aritmético de los bits restantes. En la aritmética 
sin signo se sigue la pista de los valores de las variables. General- 
mente basta con ignorar el bit de signo, como se hace en el direc 
cionamiento (pero se tiene en cuenta el señalizador de acarreo 
(«carry flag»). 
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Capítulo 5 
EL DIRECCIONAMIENTO 


El direccionamiento es el método mediante el cual los datos o va 
lores constantes almacenados en la memoria son transferidos a los 
registros del Z80 para trabajar con ellos, y es un concepto de gran 
importancia. El 280 tiene muchos modos de direccionamiento, algu 
nos más útiles que otros en ciertas aplicaciones. Debe usted tener 
siempre muy claro cuándo está utilizando variables de 8 bits y cuándo 
las usa de 16 bits. Las direcciones son siempre valores de 16 bits y so 
refieren o bien a un byte o bien al byte más bajo de los dos que for 
man el valor de 16 bits. Recuerde, no obstante, que en la zona de 
programa BASIC, el sistema del Spectrum tiene los bytes de los nú 
meros de linea invertidos entre si. 

Existen diferentes métodos para acceder a los datos. Algunos 
se detallan a continuación: 


EL METODO DIRECTO 


La posición del dato es conocida, y tiene un nombre o un valor 
numérico. 


Por ejemplo: 

LD HL, (23627) colocará el contenido de 23627/8 en el 
registro doble HL. 

LD A,(23627) colocará el contenido del byte 23627 en 


el acumulador o registro A 


EL METODO DIRECTO CON UN DESPLAZAMIENTO FIJO 


Por lo que se refiere a la forma de actuar, es idéntica al direc 


cionamiento directo. 
) 3 


Por ejemplo: 


LD B,(PHRED +5) PHRED es un valor determinado por el 
ensamblador durante el proceso de en- 
samblaje. 


En la mayoria de los ensambladores, la dirección puede ser gene- 
rada mediante cualquier combinación de etiquetas y valores numéri- 
cos unidos con signos «+» o «—». También puede darse un valor 
determinado a una etiqueta en vez de ser asignado este valor por el 
ensamblador. 


EL METODO INDIRECTO 


La dirección del dato requerido se encuentra en un lugar conocido. 
Por ejemplo: 


LD HL,(PHRED) cargará HL con la dirección. 
LD B,(HL) cargará B con el byte contenido en la 
dirección señalada por HL. 


EL DIRECCIONAMIENTO INDEXADO 


Este método utiliza dos registros de 16 bits, IX e 1Y. En este con- 
texto, una página es una zona de no más de 256 bytes cuya direc- 
ción se carga como un valor de 16 bits en el registro IX o en el IY. 
Se supone que existen varias de estas páginas situadas ordenada- 
mente conteniendo cada una de ellas datos para una utilización 
determinada (ver un ejemplo de ello en el Capítulo, 10). Los datos son 
tratados mediante desplazamientos con relación al inicio de cada 


página. . 
Por ejemplo: 
LO A,(IX+5) cargará A con el 6.* byte de la página 


que empieza en la dirección señalada 
por IX. 


El método se vuelve más transparente si al desplazamiento fijo 
le damos un nombre que indique su contenido. Considérense, por 
ejemplo, los resultados de un examen. A cada alumno se le asigna 
ura página organizada de la siguiente forma: 
5. 


N.* de byte Contenido 


De n.* de alumno 

2 nota Matemáticas 
3 » Inglés 

4 nota Física 

5 » Historia 

6 etc. 


Entonces podemos usar: LD A,(IX + FISICA), siempre y cuando 
le hayamos dicho al ensamblador que FISICA tiene el valor 4. Para 
cargar HL con el número de alumno debe ordenarse: 


LD L,(IX+0) 
LD H,IXx+1) 


para cargar el byte «bajo» 
para cargar el byte «alto» 


Para pasar al siguiente alumno solamente será preciso sumar la 
cantidad adecuada al registro de página IX. En el manual del Spec 
trum se nos advierte que el registro IY no debe ser utilizado, pero 
esto no es estrictamente verdadero. Aunque su valor no debe alte- 
rarse nunca, está siempre fijado en 23610 y puede utilizarse para 
acceder a algunas variables del sistema. Por ejemplo, para poner 
a «» el bit n.* 1 de los señalizadores («flags»), la instrucción seria. 


SET 1,1Y+) 


EL METODO.INDIRECTO MULTIPLE 


Cuando se tiene acceso solamente a la dirección del dato, hay 
que repetir el proceso utilizado para obtener una dirección indirecta 
Teóricamente no hay límite en cuanto a los niveles a los que se puede 
llegar a actuar con este proceso, aunque no considero razonable más 
de tres niveles de descenso. 


EL METODO ENCADENADO (ver figura 5.1) 


Este método consiste generalmente en encadenar bloques de 
datos de tal forma que permita efectuar una localización rápida. El 
encadenamiento requiere que cada elemento de los datos lleve con- 
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sigo la dirección de uno o más elementos asociados. Estas direc- 
ciones se conocen también con el nombre de punteros. El encade- 
nado puede ser hacía adelante, hacia atrás o bien ambos a la vez. La 
eliminación de un elemento de la cadena se realiza mediante un salto 
del puntero hacia otra dirección, de tal forma que no existen aque- 
llos elementos que no están señalados por ningún puntero. 

Normalmente es necesario utilizar una rutina que elimine la in- 
formación inservible, ordene de nuevo los datos y borre fisicamente 
los elementos que hayan sido eliminados de la cadena. 

Nótese que varias cadenas independientes pueden enlazarse a tra- 
vés de los mismos datos (siempre que se destine espacio a sus 
punteros). 

El programa BASIC del Spectrum es un ejemplo de encadenado 
hacia adelante. Cada linea lleva un puntero que señala el inicio de 
la linea siguiente. El encadenado hacia adelante es fácil. Los saltos 
hacia atrás (como GOTO. . un número de linea anterior) son siempre 
búsquedas desde el principio. 


LA COMPUTACION DE DIRECCIONES (E INSTRUCCIONES) 


Cuando se trabaja con una gran variedad de direcciones, existe 
a veces la tentación de construir la dirección (o instrucción), introdu- 
ciria directamente en el código y luego ejecutarla. 

Esta técnica no es recomendable, aunque puede ser tolerada, 
especialmente cuando son importantes la velocidad y el tamaño del 
programa. Yo mismo la utilizo y todo lo que podria decirle es: «Tenga 
cuidado». Recuerde que no puede usar esta técnica si el programa 
va a ser cargado en un módulo PROM o ROM. 

Notas: 


1. Utilicelo solamente en subrutinas, nunca en la linea principal 
de un programa. 

2 Al hacerlo en una subrutina, asegúrese de que conoce el 
efecto que producirá cada instrucción computada. Nunca 
compute una instrucción sin estar seguro de ello. 

3 Asegúrese de que conoce la forma en que el ensamblador va 
a ensamblar las instrucciones que vayan a ser modificadas 
pues algunas de ellas pueden ser ensambladas de diferentes 
formas, por ej.: LD HL,(NN) puede ser codificado (en hexa- 
decimal: 2A-n1-n2 o bien ED-68-n1-n2. (Los ejemplos en 


código de este libro utilizan, a mi entender, un ensamblador 
que produce la más corta de dos formas equivalentes). 

Si usted etiqueta la instrucción, entonces la etiqueta tiene 
la dirección del primer byte. 

Recuerde, cuando documente o publique el código, prestar 
especial atención a lo que haya hecho. Otra persona con un 
ensamblador diferente puede producir un resultado distinto 
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Capítulo 6 


LOS PRINCIPIOS ELEMENTALES 


INTRODUCCION 


Este capítulo trata de dos aspectos esenciales de la programación 
en código máquina: los tiempos de ejecución de un programa y el 
traspaso de información entre subrutinas. Intento también mostrar 
la forma en que se desarrollan las soluciones. Lamento no conocer 
la fórmula para transferir años de experiencia a un principiante. A me: 
dida que usted vaya ganando experiencia, mire hacia atrás y observe 
sus primeros esfuerzos. Cuanto más deba retroceder para ello, más 
habrá aprendido. 


EL BORRADO DE LA MEMORIA DE PANTALLA. 
UN ENSAYO EN TIEMPOS DE EJECUCION 


Se trata de una rutina elemental para borrar los 6144 bytes de 
la memoria de pantalla (buffer), la cual empieza en la dirección 16384. 
Mi primer intento fue éste: 


LD BC,6144 1 
LD HL, 16384 2 
CLRE LD AO 3 
LD (HL),A El 
INC HL s 
DEC BC 6 
LD AB 7 
OR c 8 
JR NZ,CLRE 9 


y funciona pero no queda muy elegante. 


Nótese, sin embargo: 


a) Las líneas 7, 8 y 9 son un modo de comprobar que BC = O 
ya que las operaciones DEC o INC sobre registros dobles no 
afectan a los señalizadores. 

b) Las instrucciones 3 y 4 pueden ser condensadas en una 
sola; olvidé que LD (HL),0 también es una instrucción válida. 


El bucle 3/4 a 9 requiere 37 ciclos de reloj (ver figura 3.1) y se 
ejecuta 6144 veces, dando un total de 227.300 ciclos de reloj. ¿Pode- 
mos ganar rapidez? 


2.* versión: 
LD HL, 16384 1 
LD C,24 2 
LIN3 LD B.0 3 
LIN4—— LD (HIJO 4 
INC HL 5 
DINZ— LIN4 6 
DEC C 7 
JR NZ,LIN3 8 


El bucle interior, el mayor consumidor de tiempo en rutinas de 
este tipo, requiere 6144 x 29 = 178.000 ciclos de reloj, lo cual re- 
presenta un 78 % del tiempo exigido en el primer intento. 

Sin embargo, aparecen problemas cuando se intenta generalizar 
la solución ya que en este caso se cumple que 6144 = 24 * 256, 
pero en otros, ¿estarian B y C dispuestos correctamente para las 
operaciones DEC y JR? 

No hemos llegado todavia al final del camino. Lo que hemos 
hecho hasta ahora es cargar el mismo dato en distintas posiciones 
sucesivas, Supongamos ahora que primeramente borramos la posi- 
ción O, luego trasladamos la posición 0 a la posición 1, después la 
posición 1 a la posición 2, etc. Veamos qué ocurre utilizando, por 
ejemplo, la instrucción LDIR: 


LD HL, 16384 1 
LD DE, 16385 2 
LD BC,6143 3 
LD (HL), 4 
LDIR 5 


a 


y todo es efectuado 6143 veces por el LDIR a 21 ciclos de reloj cada 
vez. El tiempo total es, por tanto, 129.000 ciclos, o sea el 57 % del 
primer intento. 

Si intentáramos cambiar los parámetros por variables y convertir 
esta subrutina en algo más universal, nos encontrariamos con todas 
las complejidades derivadas de sacar del juego a los parámetros, lo 
cual, hasta este momento, constituye un esfuerzo que no vale la 
pena realizar. 

Con un pequeño cambio en la linea 4 tenemos la súbrutina de 
borrado de pantalla CLRD («Clear Display») (Listado 6.7), en la que 
entramos con A = 0. 


LA PREPARACION DEL AREA DE ATRIBUTOS 


Podemos aprovechar gran parte de la rutina anterior, sólo cam: 
biando los valores de HL, DE y BC y dando un nuevo nombre a la 
rutina: SETA («Set Up Attributes»), la cual se utiliza con A = byte 
de atributo requerido. 


Listado 6.1 


PUSH AF 
PUSH BC 
PUSH HL 
LD HL,16384 
LD DE,16385 
LD BC,6143 


LD (HL), A 
LDIR 

POP HL 

POP. BC 

POP AF 

RET 


Listado 6.2 


0745 WAITE PUSH BC 


0746 2 PUSH DE 
0747 PUSH HL 
0748 LD ECc,O 


4 
) 


0749 LD  DE,O 
0750 LD HL,O 
0751 PUSH AF 
0752 LDIR 
0753 POP AF 
0754 FOP. HL 
O POP. DE 
FOF. BC 
RET 
LWAIT PUSH BC 
LD B,0 
LWATU CALL WAITS 
DINZ LWAIU 
POP. BC 
RET 


No pretendo de ninguna manera asegurar que las rutinas de este 
libro tengan el mínimo de longitud o el minimo tiempo de ejecución. 
Dos o tres personas en competición entre ellas deberían ser capaces 
de obtener importantes ahorros de tiempo y espacio en la mayoría 
de ellas. 


LA RUTINA DE ESPERA (WAIT) Y EL TRASPASO 
DE DATOS ENTRE SUBRUTINAS 


Cuando se utilizan programas en código máquina, ocurre tre- 
cuentemente que la presentación de datos en pantalla se produce de 
una forma más rápida de la que seria necesaria, ciertamente mucho 
más rápida de lo que puede ser asimilada. Necesitamos una rutina 
para retardar algo el proceso en estos casos. 

Volviendo de nuevo a la rutina CLDR, la operación LDIR es rela- 
tivamente lenta. Si la introdujéramos con HL = DE y BC = 0, con- 
sumiria un total de 65536 x 21 ciclos de reloj, o sea, aproximadamen- 
te 0,4 segundos a una velocidad del reloj de 3,5 MHz. Por lo tanto, 
podemos utilizar la rutina WAIT (Listados 6.2 y 6.3) procurando guar- 
dar los contenidos de los registros y recuperarlos después, para que 
la subrutina pueda ser llamada mediante la instrucción CALL WAIT 
desde cualquier punto sin temor a provocar una gran perturbación. 

Si deseamos una pausa aún más larga, podemos colocar la llama- 
da a WAIT dentro de otro bucle para obtener un tiempo de pausa 
de unos 60-70 segundos (rutina LWAIT). 


Trabajando con la función WAIT, es interesante a veces que la 
rutina espere a que una tecla sea pulsada y, al mismo tiempo, pode- 
mos asignar misiones específicas a determinadas teclas (para prever 
su uso como entrada de datos, movimiento del cursor, juegos, etc.). 

La respuesta al «¿cómo?» se encuentra en la posición 23560 del 
área de variables del Spectrum, que contiene precisamente el código 
de la última tecla pulsada por el usuario. Recuerde que el sistema 
de interrupción del Spectrum está funcionando durante todo el tiem 
po que sus rutinas están en marcha (usted está, realmente, traba 
jando a tiempo compartido con él), por lo tanto, podemos utilizar 
un bucle que lea el contenido de la dirección 23560 y espere a que 
aparezca en ella el código que deseamos. 

Hay dos problemas a resolver: 

a) ¿Cómo formamos la lista? 

b) ¿Cómo le decimos a la rutina dónde se encuentra la lista? 


Listado 6.3 
0520 PAUSE FUSH AF 


052 PUSH BC 
0530 PUSH DE 

0535 PUSH HL 

0540 PAUSI LD A, (LASTK) 
0545 cr oo 

0550 JR Z,FAUSI 
0855 LD (CHARS),A 
0560 LD Ao 

0565 LD (LASTK),A 
0570 FOR HL 

0575 POP EC 

0580 POP AF 

0585 RET 


0590 CHARS  DEFE 0 
95 LASTK EQU 23560 
IFKEY POP HL 


PUSH HL 
1F1 LD A, (LASTK) 
cer 0 

JR Z,1F1 
LD B,A 

NXEYT LD A,(HL) 
ceo o 
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0630 JR OZ, IFKEY 
06345 ceo B 
1650 JR Z,MATCH 
0655 LD DE,4 
1660 ADD HL,DE 
0665 JR NXBYT 
0670 MATCH INC HL 

FOR BC 

LD B,A 

LD Ao 

LD ” (LASTK),A 

JE (HL) 


Comentario: 


La lista debe contener dos cosas: un código de carácter y una 
dirección a dónde dirigirse cuando el carácter buscado aparezca. 
Algunos ensambladores no permiten colocar una dirección dentro de 
una lista y la dirección puede entonces encontrarse tan lejos que 
no pueda utilizarse un salto relativo para acceder a ella, 

La lista deberia tener esta forma: 


Código de carácter 
JP DIRECCION 


¿Qué hay respecto a la longitud de la lista? 


Podríamos determinar de antemano la longitud de la lista y colo- 
Carla en un registro dentro de la subrutina pero si luego deseáramos 
añadir o eliminar elementos de la lista, deberia modificarse también 
aquel registro. Una forma mejor sería sacrificar un código de carácter 
y utilizarlo para indicar el fin de la lista. Yo uso el O ya que es poco 
utilizado y se puede comprobar muy fácilmente. E 

Ahora la lista aparecería de esta forma: 


Código 1 
JP DIRECCION 1 
Código 2 

JP DIRECCION 2 
nop 


La forma de la lista ha sido ya determinada. ¿Cómo le decimos 
ahora a la rutina dónde se encuentra la lista? 
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Diagrama de flujo 6.1 


Nos encontramos ahora con dos formas de pensar distintas: una 
dice que las listas y constantes parecidas deben mantenerse apar. 
tadas y la otra sostiene que, siempre que sea posible, las constantes 
deben ¡iojarse razonablemente cerca de las rutinas que tengan que 
utilizarlas, 

Yo tiendo más hacia la segunda forma de pensar ya que, de esta 
forma, las rutinas quedan más auto-documentadas. Si llamamos 
pues a la rutina «IFKEY» (detección de tecla pulsada) que tieno la 


tendencia de ser auto-explicativa—, su utilización podría ser como 
sigue: 


CALL IFKEY 
DEFB “a” 
JP AREAD 
DEFB 4" 
JP INCR 
NOP 


La instrucción DEFB coloca un código de carácter en la rutina. 
La llamada a IFKEY detiene el Programa hasta que la A mayúscula 
o bien el simbolo « + » sean pulsados. 


como una subrutina, pero no retorna al programa desde donde había 
sido llamada por medio de una instrucción RET (la cual requiere una 
operación POP suplementaria para compensar la acción PUSH inicial 


SINOPSIS 


CLRD borra la pantalla. 

IFKEY espera hasta que una tecla de entre las que ha sido pre- 
seleccionada sea pulsada. 

WAIT produce una pausa de aproximadamente 1/4 segundo. 

LWAIT produce una pausa de aproximadamente un minuto. 
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Capítulo 7 


LA PRESENTACION EN PANTALLA 


El único medio real que posee el Spectrum para comunicarse con 
su usuario es a través de la pantalla del televisor y, por lo tanto, es 
muy importante saber controlar esta forma de comunicación. Prime- 
ramente voy a presentar la necesaria rutina de cálculo, seguida de 
un programa de presentación de caracteres completos. 

Para presentar algo en pantalla, debemos antes conocer la forma 
de localizar un «pixel» determinado en la memoria de pantalla. Des- 
pués continuaremos con la escritura de caracteres ASCII, cadenas de 
texto, números en base octal y presentación de los contenidos de 
los registros. Al mismo tiempo, se introducirá la idea de las «varia- 
bles globales». 


LA COLOCACION DE UN «PIXEL» EN LA MEMORIA 
DE PANTALLA 


«La memoria de pantalla contiene una copia de la imagen del te- 
levisor...», como puede leerse en el Capítulo 24 del manual del Spec- 
trum. 

En todas estas rutinas, el origen de la pantalla se encuentra en 
la esquina superior izquierda. 

La pantalla se divide en tres secciones, cada una de ellas con 
ocho lineas de texto (64 lineas de «pixels»). Hay 256 «pixels» en cada 
fila, contenidos en 32 bytes de datos. Un bit puesto a «1» significa 
que se trata de un elemento de tinta («ink»). Los 32 bytes siguientes 
a los de la fila O contienen los datos de la fila 8, los 32 siguientes, los 
de la fila 16, y asi sucesivamente para el primer tercio de la pantalla 


(ver figura 7.18). 
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De esto deducimos que la posición horizontal (o coordenada x) 
especifica un bit concreto dentro de los 256 posibles del bloque de 
32 bytes. 

El paso 1 consiste en colocar el valor x en un byte y utilizar los 
tres bits menos significativos para señalar un bit determinado dentro 
de un byte. Los cinco bits más significativos restantes indican con- 
cretamente a qué byte dentro del bloque de 32 se refiere. 

El paso 2 consiste en determinar a cuál de los 192 bloques de 
32 bytes debemos referimos, Esto debe deducirse de la posición ver- 
tical (o coordenada y). En la figura 7. 1a vemos que: 


La fila O utiliza el bloque 0 
La fila 1 utiliza el bloque 8 
La fila 2 utiliza el bloque 16, etc. 
Esto puede que no aclare mucho el asunto, escrito de esta forma, 
ero recuerde que estamos tratando con un ordenador y que si pen: 


samos en binario o bien en octal podremos entendernos mucho 
mejor con él. 


Listado 7,1 
7 0795 PLOT PUSH BC 
0800 PUSH DE 
0805 LD Ac 
b 0810 AND 7 
0815 ADD 1 
0820 LD E,A 
0825 SRL Cc 
€ 0830 SRL Cc 
0835 SRL Cc 
0840 LD AB 
0845 AND 5 
d 0850 SLAa A 
0855 SLA A 
0860 0R— Cc 
0865 LD C,A 
0870 LD AB 
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0885 
e 0890 
0895 
0900 
0905 
0910 


0915 
0920 


0925 
s 0930 


0935 
0940 
h 0945 
0950 PLB SRL A 
0935 PLA DINZ PLE 


09650 POP. DE 
j 0965 POP. BC 
0970 RET 


a el bloque 02 
La fila 21 utiliza el bloque 12 


y ¡se hizo la luz! 

Para las 64 filas de cada sección, todo lo que debemos hacer es 
invertir entre si los dos digitos octales menos significativos del nú- 
mero de fila (que es la coordenada y) para tener indicado el bloque 
de 32 bytes de la sección. Los dos bits restantes del número de fila pue- 
den ser entonces 00, 01 ó 10, para seleccionar cuál de las tres sec- 
ciones queremos (11 no es un valor válido). 
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Alina que sabemos lo que queremos hacer, podemos dibujar un 
diagrama de manipulación de bit (figura 7.10) A partir de aqui, el 


ces para llenar la pantalla. 
Vamos ahora a por las formalidades y la descripción del programa: 


Rutina PLOT 
Condiciones de entrada: posición x en el registro C 
Posición y en el registro B 
Condiciones de salida: — 8C igual que a la entrada 
DE igual que a la entrada 
«HL dirección del byte en la memoria de 
pantalla 
A un bit puesto a «1» corresponde al bit en 
el byte direccionado por HL que se refiere 
al «pixel» definido por BC. 


Notas: 

1 El bit buscado en la memoria de pantalla está solamente in- 
dicado. 

2. No hay diagrama de flujo debido a que el programa presenta 
Una estructura muy directa (excepto para el desplazamiento 
del registro A). 


Esto es un ejemplo de la documentación que habia mencionado 
anteriormente (en el Capítulo 2). Vamos ahora con la descripción del 
programa. 


SECCION DESCRIPCION 


a Guarda los registros en la pila. 

B__ Enmascara los bits correspondientes al número de bit, añade una 
enjaad y guarda el resultado en el registro E (ver la sección (hm) 
más abajo para la razón de esta suma). 

€ Pesplaza el contenido del registro C tres bits a la derecha (esto 
forma el indice para indicar la posición dentro. da, bloque de 
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4 1.* parte de la inversión octal (56 decimal = 70 octal); coloca 


registro D. 
f La memoria de pantalla er ¡pieza en la dirección 16384, Que repre- 


Nota: BC está ahora preparado con la dirección requerida 
(en el supuesto de que BC esté señalando un «pixel» válido 
Para empezar). Queda todavia pendiente el problema de pre. 
parar el registro A. 


Y  BCse transfiere a HL. 

h B se carga con el contenido que E posee desde el paso (b). Hay 
poa unidad más que en el cómputo de los tres bits menos signi. 
ficativos, ya que B se decrementa con la operación DJNZ antos 
del desplazamiento a la derecha. 
El bit 7 es puesto a 1 en A, y el par de instrucciones PLA/PLB 
desplazan A hacia la derecha hasta que 8 alcanza el valor cero 
La salida se produce con A conteniendo un bit a «1» en el lugar 
correcto. 

] Recuperación de BC y DE; A y HL son preparados de la forma 
requerida. 


LA SALIDA 


Se usa siempre que se deba presentar algo en pantalla y, a menos 
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Se desborda y se convierte en O, se incrementa LINE en ocho. Cuan- 


Listado 7.211) 
0975 PRIN — PUSH AF 
0980 PUSH BC 
0985 PUSH DE 
0990 PUSH HL 
0995 SUB 32 
1000 JP M,PXL 
1005 SUB 96 
1010 JP P/PXL 
1015 ADD 96 
1020 PUSH AF 
1025 LD BC,(COLM) 
1030 CALL PLOT 
1035 EX DE,HL 
1040 POP HL 
1095 LD L,H 
1050 LD Ho 
1055 ADD HL,HL 3 
1060 ADD HL,HL 
1065 ADD HL,HL 
1070 LD BC,15616 
1075 ADD HL,BC 
1080 LD B,8 


1085 RFRT LD A)(H) 
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1090 INC HL 
1095 EX DE,HL 
1100 LD (HL),A 
1105 INC OH 

1110 EX DE,HL 
1115 DINZ RPRT 
1120 LD A, (COLM) 
1125 ADD 8 

1130 LD (COLM),A 
1135 IR NZ,FXL 
1140 LD A, (LINE) 
1145 ADD 8 

1150 LD (LINE),A 
1155 ADD 64 

1160 JR ONZ,FXL 
1165 LD Ao 

1170 LD (COLM),A 
1175 LD (LINE),A 
1180 PXL. POP HL 

1185 POP. DE 

1190 POP. EC 

1195 POP AF 

1200 RET 


1205 COLM  NoP 
1210 LINE NOP 


Listado 7.212) 


1395 NPAGE CALL CLRD 


1400 PUSH AF 

1405 LD Ao 

1410 LD (LINE),A 
1415 LD (COLM,A 
1420 POP AF 

1425 RET 


PRIN 


Esta rutina hace aparecer en pantalla un solo carácter en la locali- 
zación definida por LINE y COLM; también ajusta los valores de LINE 


y COLM para que señalen a la posición del próximo carácter. 
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CARGA BC CON 


PRI 


No, si 


AA ras 
ALMACENA AF EN LA PILA 
como 


lncuenria La ocio 2 La 
a A AE 


ADELA PRA 


AIRE RARA ALMACENA UN DIRECCION DEL AvTE eN Og 


ONO 


SN 


SERCACRRA 


NO, BrTE OC OCLA pu 
inc 
Leer 101 ueno 
a a Meson 
ROA A Soo 


BASADO AL siGurenrE auooue 
DETER vi plo 


Ñ 


(PxL 
AAESTAURA LOS REGISTROS. 


PRIN 


Diagrama de flujo 7.1 


( 
( 


Esta rutina utiliza la tabla de caracteres contenida en la ROM del 
Spectrum, formada Por matrices de bits, con ocho bytes por carácter 
para todos los códigos ASCII desde el 32 hasta el 127 inclusivos. 
Empieza en la dirección 15616 de la ROM y cada bloque de ocho bytes 
está dispuesto de la forma indicada por el manual del Spectrum, Ca- 
pitulo 14, 

Para imprimir un carácter en la pantalla, es necesario cargar los 
ocho bytes apropiados en la memoria de pantalla y ajustar los pun- 
den e NE/COLM de forma que queden preparados para la impro. 
sión del siguiente carácter. 


COMENTARIO 


Esto funciona siempre que los punteros LINE/COLM no indiquen 
posiciones intermedias entre dos bytes o presenten segmentos de 
jos limites de la pantalla. No veo ninguna razón para complicar el pro- 
Plema, pero de todas formas véase el Capitulo 8 para la forma de 


tera de pantalla produce además un incremento de 256 en el pun. 
Too para que éste señale al próximo bloque de 32 bytes de la pantalla 
donde debe colocarse el nuevo byte procedente de la ROM. Esto 
Se lleva a cabo incrementando el registro H del registro doble HL en 
fu Unidad cuando contiene el dato apropiado. El bucle de trans. 
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dolos €. .ado es necesario. Comienza con HL señalando a la ROM 
y DE a la memoria de pantalla. 


Una vez que el carácter ya ha sido escrito en la memoria de pan- * 


talla, COLM se incrementa en 8 (8 «pixels» forman una fila del ca- 
rácter) para señalar al próximo carácter en la linea. Si la cuenta su 
pera el máximo y se convierte en 0, se incrementa LINE en 8 (8 filas 
de «pixels» forman un carácter) y el resultado se compara con 192 


gado a él, LINE y COLM son Puestos ambos a cero. La rutina efectúa 


Su salida después de recuperar los registros (excepto A) en PXL. 
Esta rutina no trabajará correctamente si en algún momento LINE 


PAIN con una secuencia de caracteres. Se consigue colocando. al 


Listado 7.3(1) 


1280 PTEX POP HL 
1205 PXB Lo A, (HL) 


1290 ce 0. 
1295 JR NZ,PXA 
1300 JP (HL) 
1305 PXA PUSH HL 
1310 LD A, (HL) 
1315 CALL PRIN 
1320 POP HL 


S INC HL = 
1330 JR O PXR 


Listado 7.3(2) 


0700 SRHL$ SRL L 


0705 SRL H 
0710 RET NC 
0715 SET 7,L 
0720 RET 

0725 RHL3+ CALL SRHL+ 
0730 CALL SRHL$ 
0735 CALL SRHL+ 
0740 RET 


Vimos en IFKEY cómo se puede utilizar la dirección de retorno de 
la subrutina contenida en lo alto de la pila para acceder a los datos 
inmediatamente posteriores a la llamada a la subrutina. Utilizamos 
aquí el mismo sistema para acceder al primer carácter y a los si- 
guientes de la cadena de texto que debe ser escrita. En PXB, con HL. 
señalando un byte, es cargado en el registro A y comparado con 
cero. Si es el marcador de fin de texto, entonces HL señalará una 
instrucción NOP ya que la instrucción JP(HL) devuelve el control al 
programa principal. Si no es asi, en PXA, A contendrá un carácter 
ASCII que ha de ser presentado por PRIN, Mientras PRIN está tra. 
bajando, el puntero de texto está guardado en la pila para que pueda 
recuperarse e incrementarse. Se efectúa luego un retorno a PXB para 
tomar el próximo carácter o bien el marcador de fin de texto. 

Ahora vienen dos rutinas primitivas para efectuar el desplazamien- 
to a la derecha de dos bytes (16 bits). Hay un método mejor, más 
elegante y más rápido para desplazar a la derecha. 


SRHL 


Las dos operaciones SRL desplazan cada registro un bit a la 
derecha. La segunda, en el byte más significativo, pondrá a «1» el 
señalizador de acarreo si se «pierde» algún bit del final o bien a «0» 
si no se pierde ninguno. La instrucción RET NC produce el retorno 
de la rutina cuando no debe hacerse ninguna corrección en el re- 
gistro L; en otro caso, el bit perdido se substituye por el bit más sig- 
nificativo del registro L con la instrucción SET 7,L. 
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INDICADOR DE FINAL DE TEXTO 


SALTO ALA DIRECCION IDICADA POR HL 


¿ 
É 
E 
¿ 


E 
¡ 
s i 
¿ E 
a ¿ EN 
3 ¿ 
E 
E 
3 
¿ 
E É 
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RHL2 


Esta efectúa tres desplazamientos a la derecha juntos dividiendo, 
por lo tanto, el contenido del registro doble HL por 8, que es lo qué 
se precisa cuando se imprimen números octales de la forma des- 
crita en PRT8. 


PRTS 


Ahora ya podemos escribir textos pero, ¿qué hay de los números? 
Bien, existen una gran cantidad de rutinas complicadas para este fin 
en muchos otros sitios. Esta solamente va a escribir un número bi- 
nario de 16 bits contenido en HL como un número octal de 6 digitos. 
Esto se hace, en este caso, sin complicaciones ni signos. Es algo 
tan sencillo que podemos utilizarlo después como un método de eli- 
minación de errores en los programas. 

Hay dos trucos en ella: 


1) Los caracteres ASCII de los números están dispuestos en for- 
ma secuencial a partir del código 48 (decimal) en adelante. Por tanto, 
el carácter octal requerido se obtiene sumando 48 a los tres bits bi- 
narios del valor en cuestión. 

2) Utilizamos la rutina PTEX descrita anteriormente para presen- 
tar los datos y sobreescribir lo que se haya presentado anteriormente. 


Al principio, se guardan todos los registros en la pila, con DE 
señalando al byte en el que el digito menos significativo debe car- 
garse para ser impreso por PTEX. B toma el valor de 6 ya que sólo 
deben producirse 6 bytes. En PRU3, los tres bits menos significa- 
tivos de HL se obtienen mediante el enmascarado y se calcula el 
Código de carácter con la adición de valor 48. Esto se guarda en la po- 
sición indicada por DE, DE se decrementa y HL se desplaza tres bits 
a la derecha para dar paso al siguiente grupo octal si es que B no 
llega a cero. Si B llega a O, significa entonces que los seis bytes ya 
han sido cargados en lo alto del espacio reservado «hgfedc» del lis- 
tado. PBZ1 forma un par de espacios para completar la salida de los 
seis caracteres presentados por la llamada a PTEX, después de la cual 
todos los registros son restaurados a sus valores de entrada y la 
rutina efectúa su salida. 

PRTB puede ser, por tanto, insertado en cualquier lugar de un 
programa donde se necesite comprobar el contenido de HL. 
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Listado 7.4 


1430 
1435 
1440 
1405 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1535 


Listado 7.4(2) 


5440 
5445 
5450 
5455 
5460 
5465 
5470 
5475 
5480 
5485 
5490 
5495 


PRTE 


PRU3 


Pez1 


FPRTEW 


PREWx 


5500 * 


5505 


AF 
BO 

DE 

HL 
DE,P8Z1-1 
B,6 

AL 

Ed 

48 

(DE) ,A 

DE 


RHL3S 


PRTB 


GUARDA 1000% 105 REGISTROS 
AJUSTA DE PARA QUE SENALE AL CAMACIEN 
DEA DIGO MINOS SIGMICATIVO. 
"CARGA 8 DE FORMA QuE CUENTE 

E CAMACTEMES OCTALES. 


CANGA A COW LOS 28115 
MENOS SIGMPICATIVOS 08 4 
E SUMA EL CODIGO DL 


ALMACENA EL CABACTEN ASC 
ENDE) DE=DH 1 DESPLAZA MAL 
FONTS AA OENECHA 820.1 


=s =0 2 
EZA! 


IAESTAURA 10DOS LOS IKEGIS1AOS. 


Diagrama de flujo 7.3 


63 


RPORT 


En el proceso de eliminación de errores en los programas, aparece 
frecuentemente la necesidad de ver en la pantalla los contenidos de 
todos los registros. Esto es exactamente lo que hace la próxima 
rutina, mostrando además la dirección de retorno mediante PRT8. 
No hay diagrama de flujo por tener el programa una estructura muy 
directa, 

Hay tres puntos a tener en cuenta: 


1). El valor del puntero de pila, indicado por «$=» puede indi- 
car si el programa se está desequilibrando debido a que los POPs 
y PUSHs no están reunidos. 

2) La dirección de retorno de la llamada CALL RPORT, indicada 
Por «£», permite distinguir entre varias salidas debidas a distintos 
puntos de llamada, 

3) Los datos se cargan en HL para imprimir en pantalla la direc- 
ción de retomo. Se podria hacer de un modo mejor y más elegante 
computando la instrucción, como se demostrará más adelante en 
MOVER y VAR$1, por ejemplo. 


Listado 7.5 


1540 RPORT LD (SP+),SP 


1545 PUSH AF 

1550 PUSH BC 

1555 PUSH DE 

1560 PUSH HL 

1565 LD (HLS),HL 
1570 LD (DE$),DE 
1575 LD (BC$),BC 
1580 PUSH AF 

1585 POP HL 

1590 LD (AFS),HL 
1595 CALL PTEX 
1600 DEFM "AF=" 
1605 Nor: 

1610 LD HL, (AFS) 
1615 CALL PRTE 
1620 CALL PTEX 
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1795 AFS 
1800 HL+ 
1805 DES 
1810 EC$ 
1815 SPS 


DEFM 
NS 
LD 
CALL 
CALL 
DEFM 
NOP 
LD 
CALL 
CALL 
DEFM 
NOF* 
LD 
CALL 
CALL 
DEFM 
NOF: 
LD 
CALL 
CALL 
DEFM 
NOP 
LD 
LD 
INC 
LD 
EX 
CALL 
CALL 
Por 
FOP 
POr 
POP 
RET 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 


"EC: 


HL, (BCR) 
PRTE 
PTEX 


Mia 


HL, (HE) 
PRTO 
FTEX 
“D 


HL, (DES) 
PRTO 
PTEX 
ng 


HL, (SP+) 
PRTO 

PTEX 
“e 


HL, (SP4) 
E, (HL) 
HL 

D, (HL) 
DE, HL 
PRTO 
PAUSE 
HL 

DE. 

BC 

AF 


o 
o 
o 
o 
o 
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EXPLOMACION A Tnaves 


DAN VALOR A LOS ATmBUTOS 
PARA NLANEA DE PANTALLA 


¡ 
1 
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¿08 
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! 
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DEA MEMO 
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GITANOS 
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PANTALLA 
Ñ 


| 


mapg 
pace |] oormapo vera ranita 
1 
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ML» DIRECCION DE PUCIO DEL AREA DE ATRIBUTOS. 
ER2A2ULIMCAS OE 22 CARACTERES 


DE Fúlntccion or macro DE La UTA. 
DECO0IGOs DE ATRIBUTOS 


AZÉTmUTO AL CUAL StnALA DE 


DES SIGUENTE ATRIBUTO: 
322 CAMACTEACE POR UNC; 


esca un oro 


BC 649 SALTA AL EmDE LA 
MOMOMA DE PANTALLA 


HE esggsesacrara 
MEA g En oros 


PLoY 


Al 


1 
I 
! 
A 


TRATARON =P 
DE TIA labo 


ACT ASC 
DE EspaciO 


STAURAS E Ienementan sc 


2 


Diagrama de flujo 7.4 


SINOPSIS 


PLOT realiza la misma función que la instrucción PLOT del Spec 
trum. Es la base de toda presentación en pantalla. Forma también la 
parte básica de la rutina de animación del Capitulo 8 y el programa 
de dibujo del Capitulo 13. 

PRIN imprime un carácter con un código ASCII en el registro A, 
en la siguiente posición disponible. 

NPAGE borra la pantalla y prepara PRIN para que empiece en el 
principio de la primera linea. 

PTEX utiliza PRIN para imprimir el texto que sigue a su llamada. (El 
texto debe terminar con un byte de valor cero] 

PRTE utiliza PRIN para mostrar el contenido de HL como un nú: 
mero octal. 

PRT8W utiliza PRT8 con una pausa de espera hasta que la tecia 
«m» <ea pulsada. 

RPORT muestra los contenidos de los registros (excepto IX e 1Y). 

MAPS muestra la ocupación de memoria. 


1820 MAPS CALL NPAGE *(LS 

1825 CALL PTEX 

1830 DEFM " ALMACENA MAPADE MEMORIA 
DE 22528 A 65535 » 

1835 Nor 

1840 LD HL,22528 

1845 LD  C,24 

1850 NXF1 LD DE,LIST 

1855 NXF2 LD A, (DE) 

1860 cr o 

1865 JR Z ,NXF1 

1870 INC — DE 

1875 LD B,32 

1880 NXFO LD (HL) ,A 

1885 INC HL , 

1890 DJNZ NXFO 

1895 DEC € 

1900 JR NZ,NXFZ 

1905 LD BC,6144 

1910 NXF3 LD HL, 16384 
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1915 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1955 
1960 
1963 
1970 
1975 
1980 
1985 
1990 
1995 
2000 
2005 
2010 


NXF4 


LisT 


Capítulo 8 


LA ANIMACION 


GCELL 
El objeto de esta rutina es el de presentar una secuencia rápida 


Con el programa BASIC es compleja pero puede ser gestionada sin 
utilizar una técnica fundamentalmente nueva y más general (ver Ca. 
pitulo 9). 


LA COMUNICACION CON EL BASIC 


El usuario debe cargar en los bytes 23675/6 (UDG = Gráfico Defi- 
nido por el Usuario) la dirección del primer byte del bloque de datos 
definido más abajo que va a ser utilizado por la rutina, Puede haber 
varios bloques como éste y pueden conectarse entre si alterando el 
valor de la variable UDG. 


BYTE DESCRIPCION 

o posición horizontal de la celda X 

1 posición vertical de la celda Y 

2 señalizadores de control y número del cuadro si 
guiente 

3 BCR : número de bits por fila de la celda (1 a 255) 

4 BCC : número de bits por columna de la celda (1 a 
255) 

5 WPC : número de palabras por celda (1 a 255) 

6 bytes de control de la secuencia de cuadros. Los 


cuatro bits menos significativos del byte n.* 2 se 
falan a uno de estos 15 bytes. Los cuatro bits me- 
m 


debe evificativos de este byte definen qué celda 
debe dibujarse 


20 byte para ser presentado 
21 byte con valor cero 
2 Primer byte de datos de la celda 1 Hay WPC hytes 


en esta y en las otras celdas 
22 y WPC__ primer byte de datos de la Celda 2 
22 + 2 x WPC primer byte de datos de la celda 3 


y asi sucesivamente para las demás celdas —hasta 15— que se pre- 
cisen. 


Descripción de los señalizadores de controj 
guiente cuadro —byte número 2. 
N.* DE BIT DESCRIPCION 


7 Bit más sianificarivo, 
hacer nada. 
6 


y del número del si- 


Si está a «1», la rutina sale 1 


por el programa del usuario. 
5y4  Noutilizados. 


ams aca 
ENTES wen 


9 FAS 


6 PRES 


Figura 8.1 
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[cuna CEA especia, 
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Ese 


esencias o 
es mes 
ce 


En P/ 


PRA BE Elba 


(JUSTA 4 PARA QUE SEMA A La 
DE SCcutnciAs HOÑALAMDO ECG 
a e oO O 


Luto o ceroa, 12 
HADAS POR CELA Ms occ 


MOL De 
e FEmMOCtOS PAÑA LoCALIAN Ue 


MACAO OELA CULDA DL BUS 


INEOCIDE DNA curoa cutazas 
ICA SE 
A BCIE SCCUENCIA DE ENTRADA pa Ela 


Foc oE ta rama. 
DEscuoicaS 


ALMACENA LA SECUENCIA BIOUNTE DE LA TABLA 0€ MUAEROS 6 
PROGRAMA IBVTE DE SenaLizacon 


MUERO DE FLAG 0 LA Caron 
oO 


OPA LAS Muas ota 


OA ESTAN ALAS 


Iman LA DECO ULA rom 0 Pata 
a ÓN 


POREONTAL DR Pix 


INTO A LA CERCENA gueno POR LoS DATOS Dr, 
ECON DEMO OE LA PRA SE datOS ERE 


SEBIT_ | Jooroaunara coros oe ua cepa px a Menoma EPR 


cen 


erementA LA rua oe ranraria PAR ELIO OLA PLA cue 


'agrama de flujo 8.1 


DESCRIPCION DE'GCELL 

El puntero de pila SP se guarda en PANIC. Por tanto, puede re- 
cuperarse en cualquier momento, permitiendo una salida digna a la 
futina cuando, por ejemplo, ésta intente escribir más allá del área de 
memoria de pantalla permitida. Los primeros 21 bytes de los datos 
de control son copiados en la rutina y TM1 se iguala a la dirección de 
la primera celda gráfica. El byte 2, que se utiliza como byte señalizador, 
5e comprueba y la rutina termina si el bit 7 está a «1» o bien silos bits 3 
a 0 indican que ninguna celda está especificada. En otro caso, los 
últimos cuatro bits indican cuál de los bytes, en la tabla de secuen. 
cias, contiene el número de celda requerido. LOA a L2 y la opera. 
ción DJNZ recogen este número de celda y colocan en CELLZ la 
dirección inicial de los datos de la celda. 

En L4A — L4 se calcula el puntero de la próxima tabla de secuen- 
cias y se guarda en el byte n.* 2 de la tabla de comunicación con 
BASIC, donde queda preparado para ser utilizado en la próxima lla. 
mada a la rutina. En FADDR se coloca la dirección de este byte para 
que pueda utilizarla SEBIT si es necesario. 


ido 8.1 


2015 GCELL LD (PANIC) ,SP 
2020 UDG EQU 23675 


2025 LD HL, C(UDG) 

LD DE,XY 
LD BC,CELLZ-=XY-1 
LDIR 
LD crm), HL 
LD “A, (FLAG) 
BIT 7,8 

*ORETOONZ 
AND" 15 
LD (FLAG),A 
sub 1 
RETO M 
LD A, (BCR) 
SRL A 
SEL A 
SRL A 
LD (WPR),A 
LD A, (EC 
AND 7 
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y 0 HL, (CELLZ) 
Ea aos BC, (WER) 
Lo A, (ER) e 
ADD 1 Pe " 
LD (MER) A ; E ye 
LD HL, FSEG- 1 y , 
LD A, (FLAG) . 
LD B,0 aa 
UD C,A E 
ADD HL,BC E 
LD B,(HL) e 
LD (m2) HL o 
LD A, (WPC) i pa 
ED Ela > o 
LD D,0 o e 
LD HL, rmx) e osMibatns. 1983 
ADD HL, DE . A E 
DJNZ L2 E | 
Se ña 5 t K o | 
SBC— HL,DE EA o 
LD (CÉLLZ) HL di o 
LD HL, (rm2) | UN o 
INC HL | : : 
Ano A HC | PAAZADO DE LA CELDA-(DE LXX EN ADELANTE) 
AND 15 | PA : sE E 
JR NZ,LgA lea entrada, XY contiene la posición de la esquina superior iz- 


LD At | Myleada de la célda en el formato re; 
2250 L4R LD HL, (uDG) É 
HL 


INC HL 
LD (HL) A PLOT determirr la dirección del 


E a (buffer) y el-número de bip 
AS ¿ lei Sual señala" CELLZ, SEBIT traza la fila 


77 


Lo yl , 
se luséo incrementada para señalar a la gabecera 

RET Om «malo y el buce-5e repite nuevamente. 

LD (BCC> ¿A Es 5 E 

LD EC, (XY) sSeir 

Gi Fl d : , 
Lo A Y 3 gata rutina traza o borra el trazado. de «pixels» en la memoria de 
AND 7” Piygolla tbuffer) degún que los bits correspondientes estén a «1» o 
LD BC,(CELLZ) Sap, e. la fila de la celda, Se mantienen dos punteros separados 
CALL SEBIT Pak actuar én ambos conjuntos de bytes. 


o MA 
Alea agan oergaa Lars CTS IST A) 
, 


o ro sra 
BVTEDE LA PANTALLA Mo ML q 
7 


AE oe Connor 


Ena 


DEZA 7 GUARDA EL hunEno DE ra 05 
"gen CONTADO DELA MA DELA Sétoa 
WEZBLA CONTADOR DE BS En Uca 


IsTnuccIon conto: comurana iseounoo syto + (2TTRTSI5TATATr] 


FJECUTA UL CONTROL DEL BYTE OETA CODA, A 1" DEM DE LA MEMONA OE Parras 


EDT) 


AA uno 
IMPUTA METAUCCION SET IaYTE a 


esos es O esa Los ae CTTRTETEIIeT7) | 
E 0 


PASA 1 27 arre Comeuraco | 
Ar BUTE ELA MEMOMA OE PANTALLA SEMALADO POR ba 1 


Jn 


LU DL OY O Parra Icom ss aya comeuraoor 


RRE LA MOOD PAMTALA. 


OMA seuizacon o acanno 


UNO UL OK ARMALCADOr 
A EUA e y 
A PON EnnON 


A mrtmon LoS salis Oe LA 


PANTALLA NO St Usa: 
no, " 
ASLAoO AL re 
A07 


earn AS, 


| 
e | 
VERA, EVER comos os recae] | 
A os rro 
Aa 
KSTA IA YA cra ruca 


Diagrama de flujo 8.2 


BITS BCR EN BYTES WPR PARA UNA FILA DE LA CELDA 
Figura 8. 


ESTE BYTE ESTA SEALADO POR MU. 


BCOELA EAS 


Nota: En esta rutina se usan instrucciones Computadas. ¿Cómo 
tratará su ensamblador éstas?: 


64 + 7 genera la instrucción BIT A 
128 + 7 genera la instrucción RES 2A 
192 + 7 genera la instrucción SET 2,A 


SINOPSIS 


Listado 8,2 


2465 DNB LD a,c(TS) 
80 


2540 SETB 
2545 
2550 
2555 
2560 
2565 DOB 
2570 
2575 DO 
2580 
2585 
2590, 
2595 
2600 
2605 
2610 
2615 


SLA 
SLA 
SLA 
ADD 
LD 
LD 
rr 
LD 
JR 
SLA 
SLA 
SsLA 
ADD 
JR 
LD 
SLA 
SLA 
SLA 
ADD 
LD 
LD 
SET 
LD 
LD 
DEC 
JP 
INC 
OR 
LD 
sec 
ADD 
Je 
LD 
LD 
OR 
LD 
LD 
LD 
RET 
LD 


A, (05) 
NZ, SETE 


192+7 
(DO+1),A 
A, (HL) 
0,A 
(HL) A 
A, (DS) 

A 


P,JMA 
HL 

A 

DE, 22496 
HL,DE 

HL, DE 

M, JMX 

HL, (FADDR) 
A, (HL) 

64 

(HL) A 
HL, (PANIC) 
SP,HL 


A,7 


81 


82 


LD (105), 


LD ñ,tTS> 
DEC A 

JE IHR 
LD A7 
INC BO 

LD (TS),R 
LD A, (wa) 
DEC A 

RETO mM 

RET OZ 

LD (WC), A 
JR DNB 
DEFB O 

DEFB 0 

DEFE O 


Capitulo 9 


EL TRATAMIENTO DE ERRORES Y EL TRASPASO 
DE NOMBRES DE PARAMETROS 


TRATAMIENTO DE LOS RETORNOS POR ERROR 


tulo 8 la utilización de PANIC). En casos como éstos es muy útil 
poder obtener alguna indicación sobre la naturaleza del problema. 

El código máquina suele llamarse siempre mediante la instruc- 
ción RANDOMIZE USR Pero no existe una razón fundamental 


Si tenemos, por ejemplo, una rutina Que debe retornar normalmente 
con BC = 0, podemos llamarla con: 


IF USR ...< > 0 THEN GOTO rutina de error 
o mejor: 


LET código de error = USR 
IF código de error < > 0 THEN GOTO 


Ya que podemos darle cualquier significado especial al valor que no 
sea cero, 

Todos estos IF. < > 0 THEN GOTO ... son algo complejos e 
(peor aún) son en BASIC. Vea en el Capitulo 25 del manual del Spec- 
trum las variables NEWPPC y NSPPC. 
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la parte BASIC de nuestro Programa de tal forma que alguna linea, ws—»=|1]ol119|pl1]oT: 
la número 2, Por ejemplo, sea la línea a la que haya que saltar en 
caso de una condición de error. Nuestra salida por error debe enton sl sic 
ces contener: 
LD HL,2 “ ASOn e 
LD (23618),HL. 
LDA,! 
LD (23620), A Bn R 
(us introduce el valor 2 en NEWPPC y el valor 1 en NSPPC. De esta 
forma se llega a la linea 2 del BASIC. = 
Volvemos ahora a llamar nuestra rutina con: [o 1jojof1[1[1]5 o 
LET código de error = USA 
S +l1f1Tofi Rrbirz 
Y continuamos hormaimente con la Instrucción siguiente. Si aparece 


E 
3 
3 
El 
5 
o 
LS 
E 
3 
3 
» 
< 
El 
52 
E 
ES 
E 
á 
8 
E 
ES 
3 
2 
E 
2 
El 


In error, lle; [ Ódi, 
contendrá el valor que tenia BC cuando la rutina efectuó su retorno. 
Aunque parezca extraño, la asignación de BC al código de error se +5 nia 
Produce sin importar la forma en que se efectúa el retorno. | 

Hay solament ii í lo. Í 


nuestros no suelen encontrar errores (). ¿Podemos traspasar la infor. . 

Mación de error por algún otro medio? +7 
De nuevo encontramos la respuesta en ej manual del Spectrum, TAN 

escondida en las profundidades í 25. é 

todo algo más complejo pero puedo, asegurar que vale la pena em. e 

plearlo. Es [AAA 
1 23627/8 — VARS contiene la dirección del inicio de la tabla 

de variables en el programa BASIC. 


2). En el Capítulo 24 del manual se muestra la forma en que están o] 
Oraenizadas estas variables y sus nombres. 
Si la primera linea ejecutada en BASIC es: 


MIO DEL AREA DE VARIABLES 


Ss 
5 
Y 
E 
E 
S 
3 
E 
3 
-2 
3 
2 
E 
3 
s 
2 
E 
w 
(2) 
Y 
E 
ES 
5 


224 
233 
88 
225 
Ses 
9235 
358 
E<05 
ES 
Leo 
328 
SEE 
la 
...2 
¿óz 
339 
583 
a 
jes 
Es 
335 
3283 
de 
EE 
332 
ES 
2 
E 


0001 LET ERROR = 0: GOTO 


| Figura 9.1 


gntonces el inicio del área de variables estará como la figura 9.1 y 
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0001 LET error = 0; GOTO 100 
0002 PRINT “CONDICION DE ERROR = »; error 
rutinas de tratamiento de errores, 


ee REM el programa propiamente dicho empieza aquí 


0150 LET q = USR 
Y q será algún valor útil generado 


Por medio del registro BC. 
Nótese: 


Por la rutina y traspasado al BASIC 
1) El registro BC sólo permite traspasar un valor desde el código 
2)  KError» puede, si se desea, ser un número en co, 


3) Podemos ahora comunicar 


4) Podríamos incluso cambiar | i 
Ñ la utilización de «error» il 
omo Una variable de entrada al código máquina. de 
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Pero vamos a formalizar primero cómo vamos a tratar las 
diciones de error. 

A la entrada en el programa debemos asegurarnos de que l.. yw, 
mera variable BASIC tenga un nombre de cinco caracteres, el cual 
será reservado para traspasar códigos de error. Suponemos que 
nuestras rutinas de tratamiento de errores tendrán su inicio en la 
linea 2. 

Las rutinas en código máquina empezarán guardando el valor 
del puntero de pila de forma que pueda utilizarse para el mecanismo 
de salida. 

A la salida se retornará al BASIC colocando el valor que contenga 
el registro doble DE en aquel momento en la primera variable BASIC, 
y forzará el retorno a la línea 2. 

La llegada del código máquina al mecanismo de salida se hará 
conteniendo DE un valor adecuado y con la instrucción JP, CALL 
o JR que se considere conveniente. 

La rutina aparece en el Listado 9. 7.: ERROR es el valor archivado 
de SP (puntero de pila) a la llamada de la rutina, 


Listado 9.111) 
1215 ERREX LD HL, (ERROR) 
o LD SP,HL 
LD HL,2 
LD (23618),HL 
LD At 


LD (23620),A 

LD HL, (23627) 

LD EC.7 

ADD HL,EC 

LD (ERADR+2) HL 
ERADR LD (ERADR+2),DE 

RET 


5 ERROR —DEFW O 


ORG 
LD 
PUSH AF 
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0020 PUSH 
0025 PUSH 
FUSH 
PUSH 
CALL 
JP 
0050 LD 
0055 PUSH 
0060 PUSH 
0065 PUSH 
0070 PUSH 
0075 PUSH 
0080 CALL 
0085 Je 
0090 LD 
0095 PUSH 
0100 PUSH 
0105 PUSH 
0110 FUSH 
0115 PUSH 
0120 + caí 
0125 Je 
0130 LD 
0135 PUSH 
0140 « PUSH 
0145 PUSH 
0150 PUSH 
0155 PUSH 
0160 CALL. 
0165 Je 
0170 Lo 
0175 PUSH 
0180 PUSH 
0185 PUSH 
0190 FUSH 
0195 PUSH 
0200 CALL 
0206 Je 
0210 Lo 
0215 PUSH 
0220 PUSH 


BC 

DE 

Hu 

IX 

DRAWL 
TRAPS 
(ERROR) , SP 


(ERROR) , SP 
AF 

BC 

DE 

HL 

Ix 

BLOCK 
TRAPS 
(ERROR) , SP 


TRAPL 


(ERROR) , SÍ 
AF 
BC 


0260 


0265' 


0270 
0275 
0280 
0285 
0290 
0295 
0300 
0305 
0310 
0315 
0320 
0325 
0330 
0335 


¿0340 


0345 
0350 
0355 
0360 
0365 
0370 
0375 
0380 
0385 
0390 
0395 
0400 
0405 
0410 
0415 
0420 
0925 


PUSH 
PUSH 
PUSH 
CALL 
Je 
LD 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
JP 
LD 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
Je 
LD 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
Je 
LD 
PUSH 
FUSH 
PUSH 
PUSH 
PUSH 
CALL 
Je 
LD 
PUSH 
PUSH 
PUSH 


DE 

HL 

IX 

MARS 

TRAPS 
(ERROR) , SP 
AF 

EC 

DE 

HL 

1X 

IVERT 
TRAPY 
(ERROR) ,SP' 
AR 

BC 

DE 

HL 

1x 

MOVEC 
TRAP+ 
(ERROR) ,SP 


(ERROR) , SP 
AF 
BC 
DE 
HL 
1x 
DRAWA 
TRAP+ 
(ERROR) , SF: 
AF 
BC 
DE 
89 


PUSH HL 


PUSH IX 

CALL DEMO1 

Je TRAP+ 
(ERROR) , sp 
AF 
HC 


0465 
0470 
0975 
0480 
0493 
0490 


colocar una lista de Parámetros en esta línea, is 
|, escondi ! 
BASIC por una sentencia REM. a 


Una llamada a la rutina en códi i 
, máquina e - 
diria ser, por ejemplo: e 


0175 LET y = USR 12345 
0176 REM a,b : REM a y b son Parámetros de USR 12345. 


Eigable del que indicaremos si termina con Una coma, dos puntos 


3 's son ignorados y los ente- 
$9 * detectan porque comienzan con un digito 
10 


VARS1, UNA RUTINA PARA LA BUSQUEDA DE VARIABLES 
EN EL AREA DE VARIABLES 


de variables (diagrama de flujo 9.3). Retoma con A — O final de data 
o bien con HL conteniendo la dirección del inicio del nombre de la 
variable y A = los tres primeros bits del código de este nombre. 
Véanse los detalles más adelante. 

La rutina no hace exactamente lo que se creía que iba a hacer. 
Es Jotras, paréntesis, y $ pueden estar en cualquier orden y el iden: 
tificador de variable es, en realidad, la última letra. La sentencia REM 


Documentación de la rutina 


Condiciones de entrada: ninguna 
Condiciones de salida: * destruidos los contenidos de todos los re. 
gistros. 
PARMO — PARMS son las direcciones de 
los primeros caracteres de hasta siete nom- 
bres de variables en el área de variables 
BASIC. 
0 indica que no existe ningún parámetro. 


Nota: La rutina que llama debe verificar que el tipo de variable 
recibida sea correcto y recoger o cargar los bytes apropiados. 
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Pzo: terco 


e lam) e te 


2 
—— 
pi AA A L ES 


Boceto del diagrama de flujo 9.1 
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ren—a 
AS OEI 410 PARA OS MORADOS o a STA AA SEG LA ALAMADA Un 


COMES DEIA DE LOS MOMBNES OE PANAMETNOS. 
E De 5% 


RA 


du esracio or 


E ot escasa con 
Acc dto Pon BAR 
muonococra 


Seo coa nu 


JA 10S ESPACIOS Aur 


CA 


Dimasst A sta puro rana 
nos canacrs 


sala «D 
POCA SETA 000 UN CAMACI «9 


al 


LS 
[ora — 
AS 
AA 
sauoa TETAA CON CODIGO COMPAEMOIDO ENTE 70 403 
TRA OTROS UA A 


Diagrama de flujo 9.2a 
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ES 


aos 
A a 
e BGN EL AREA OE VARIADAS DEL SPLCTMO 


To ut 


ATT 
[AR a 


ETA A 


E mtIno nuscaDO ya 800 LOCAUzA 
OO O TA oO 


CADA 0 LA UE OS OMACCIAS 008 ranarcraos nenuturan 1 
ER PUNO DE NA USA OLCARUENTA EL COMTACOR U€ pu 


perosa NAL 


Fi MECOGEN UE CARACTER SUN DE LA UTA aya 


Diagrama de flujo 9.2, 


PCALL 


El número de parámetros que deben manejarse, PARMO, PARMI, 
se calcula durante el proceso de ensamblaje y PEND, su contador 
+ 1 se ajusta a la entrada. El desplazamiento a la derecha permite 
alojar dos bytes en cada PARM. Para más parámetros, añádanse 
2 bytes más por parámetro entre PARM6 y PEND; la operación LDIR 
borrará todo a la entrada. Recuerde, la lista PARM contiene las 
DIRECCIONES del inicio de cada nombre de variable. 

La parte RR — RST — RRR de la rutina lee la siguiente linea de 
programa hasta que encuentra un carácter REM, y en esta punto la 
variable REMS adopta un valor distinto de cero. Entonces RST salta 
a RSET, donde se comprobará el siguiente carácter de la sentencia 
REM que no sea un espacio, FS adopta un valor no nulo si se en- 
Cuentra un carácter $ indicador de cadena. RB se carga con un valor 
no nulo si se encuentra un carácter o bien indicadores de conjuntos 
(«arrays»). Una coma, dos puntos o un carácter «ENTER» fuerzan un 
salto a LB y entonces se comprueba si se trata de un carácter de 
letra minúscula. Si lo es, se guarda en B después de haberle res- 
tado 60 (hex). Cualquier carácter que falle en esta comprobación 
causa una salida por error que coloca el valor 2 en DE y llama 
a ERREX, 

Cuando se alcanza LB, se ha leido un nombre de parámetro y el 
programa de LB a LBX examina FS y RB para determinar el tipo y 
la forma —con la letra identificada— del inicio que debe buscarse 
en el área de variables. 

A se pone a cero para inicializar VARS$1 en su primera llamada 
en SCHL. VARS1 sale con A = 0 sino existen más variables y la ru- 
tina sale con error 2. En otro caso, HL señala el inicio del nombre de 
la variable que será comparada con el elemento buscado. Si no se 
encuentra todavía, el programa vuelve a SCHL con un valor no nulo 
en A, o, en caso contrario, PARM será el inicio del código que alma- 
Cena la dirección de inicio de la variable en la lista de variables y antes 
se comprueba que haya sitio para ella. Los marcadores FS y RB son 
puestos a cero y la rutina vuelve a RAR para leer el próximo carácter 
en la lista de parámetros o sale sí se encuentra el final de la lista. 


Listado 9.2 


2750 FCALL LD  HL,O 
2755 NXTLM EQU 23637 
LD (PO), HL 


27 
95 


2765 
2770 
2775 
2780 
2785 
2790 
2795 
2800 
2805 
2810 
2815 
2820" RR 
2825 
2830 
2835 RAR 
2840 
2845 
2850 
2855 
2860 
2865 
2870 
2875 RsT 
2880 
2885 
2890 
2895 
2900 
2905 
2910 
2915 RSET 
2920 
2925 
2930 
2935 
2940 RT 
2945 
2950 Ry 
2955 
2960 RU 
2965 


Lo 
LD 
LD 
LDIR 
LD 
SRL 
LD 
LD 
LD 
LD 
ADD 
LD 
cp 
JR 
Inc 
PUSH 
Lo 
INC 
POP 
JR 
Lo 
CALL 
LD 
ce 
JR 
LD 
cp 
JR 
LD 
JR 
LD 
cr 
JR 
LD 
JR 
cr 
JR 
Lo 
JR 
cr 
JR 


HL,Fo 
DE,PO+1 
BC, PEND-PO 


Ay FEND+3-PARMO 
A 
(PEND) ,A 
IX,FARMO 
BC,4 

HL, (NXTLN) 
HL, BC 

A, (HL) 
NZ,RST 

HL 

HL 

HL,PO 

(HL) 

HL 
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98 


FARM 


RHL 


REMS 
Fs 

RE 

Pz 
PARMO 
PARML 
PARMZ 
PARMA 
PARMA 
PARMS 
FARME 
FEND 
ERX1 


ERX2 


ERX3 


AND 
cr 
JR 
Lo 
JR 
LD 
LD 
INC 
INC 
LD 
DEC 
LD 
JR 
LD 
LD 
LD 
LD 
LD 
ce 
RET 
cre 
RET 
Je 
DEFE 
DEFE 
DEFE 
DEFB 
DEFW 
DEFU 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFE 
Lo 
CALL 
LD 
CALL 
LD 


137 
Es 

Z,FPARM 
A,1 

SCHL 
COI 
SES 
1 


(RE) A 
HL, (Pz) 
A, (HL) 

2 

15 


CALL ERREX 
LD DE,4 
CALL ERREX 


VAR$1 


Los tres primeros bits de cada variable definen su tipo y permiten 
acceder a! inicio de la próxima variable, Estos bits sons 


000 no utilizado 

001 no utilizado 

010 cadena 

011 nombre de una variable de una sola letra 

100 conjunto de números 

101 nombre de varios caracteres 

110 conjunto de caracteres 

111 variable de control de un bucle FOR — NEXT 


hacia otro salto relativo que trata de encontrar el final de una variable 
y £l inicio de la siguiente. El proceso se inicia suponiendo que la va. 
fiable previa no existente fuera del tipo 3, desplazando el inicio del 
área de variables en seis posiciones y saltando hacia J3, 

Las etiquetas JO a J7 identifican las secciones de código que tra- 
lan del tipo de variable correspondiente, como se indica en el diagra. 
ma de flujo 9.3. En el tipo 5, el final del nombre se indica poniendo 
2 «Th el bit más significativo del último byte. FVEND busca esto ult, 
mo y la rutina procede como si se hubiera leido un nombre de va. 
fiable de una sola letra. 

Entre llamadas a VARS1 la variable VARS mantiene la posición 
alcanzada durante la exploración. Durante la rutina, HL señala al 
área de variables. 

En el caso de que la rutina empiece a generar errores después de 
haber funcionado correctamente, debe sospecharse que la variable 


( ) 
( 
Nota sobre el salto computado en JNV: 
La mstrucción JR JO es una instrucción de dos bytes Í 
LA UMCCION DE LA VARIABLE SILUIENTE VEL ABEA DA VAS byte 0 = 24 decimal, 18 hex 
vanas encon byte 1 = desplazamiento relativo. 
cos DMA AS OANOS y IN ASE CU 2 Ya que la tabla entera consiste en saltos como estos, los desplaza: 
PU cl YA RL DO po La o a iequeridos serán O, 2, 4, 6, etc. VTYPE sólo puede producir 
ocho valores (0 - 7). Sí se desplaza un byte a la derecha, sorá 0, 2, 
9, 6,8, . 14 y la tabla cubrirá todas las posibilidades. La entrada y 
ALMACENAR BC. y la primera, ambas imposibles, saltan a la rutina de error, 
RE cc cs 
ANS AUTO io Listado 93 ¡ 
¡DIRECCION PREVIA DEA VÁ Ec S 5 VARSS EQU 23427 ñ 
A IET! VARFI +FUSH BC l 
A OPUTAN ALTO A 8 41 FUSH DE Ñ 
ceo 0 
DS) de 9) do JE NZ,NV1 
DIA | or A ! 
MONA OC Xanon even |] | LD HL, (varss) ñ 
A, | LD EcJá 
ae MAS QU UNA LETRA | SBC— HL,EC 
io Lor bss 
AN Eno ¡ a 
Ú Nv1 CALL VTYFE y 
| LD (JNY+10,A 
SOMO nuse Dear aa LD DE,666 
a Eo | IN aR do 
> no noni ooo cue | IR JO 
1 IR JO 
ES JR J2 
JR 33 l 
Ea (el) AUR JR 34 
A JR JS 
vera vanos 1 ocron ss rmx) — J JR Jé 
O ad aras JR 7 
x 7 Jo CALL FTEx 
DEFM “vAars 1 30 error" 
NOF 
. 7 CALL ERREX 
Diagrama de flujo 9.3 INC HL 
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RD (PAZ HL SINOPSIS 
LD BC, (ur+a; 
ADD HL,BC PCALL traspasa las direcciones de variables BASIC hacia las ruti 


INC HL nas en código máquina. 

NO HL 4 Esto facilita el problema de traspaso de datos y la mayoria de 

LD (VAR HL rutinas del próximo capitulo utilizan ésta o la subrutina OPARS. 

LD A, cHto Aja primera variable BASIC se le asigna el nombre ERROR y la 
linea 2 del programa BASIC se reserva para las rutinas de error 


cr 080 
JR NZ,Ix 
Ju LD AO 
RO IXL 
O IX CALL VIYPE 
3595 IXL FOR DE 
00 POR Bo 
RET 
LD 8c,6 
ADD HL,BC 
JR JY ñ 
JR Ja 
CALL FVEND 
Ro 93 
J6 JR 32 ) E 
97 LD BC,19 


JR 
VARE — DEFW O 
VTYPE LD AH) ' 
AND 128+64+32 
A 


-RLO 
RLC A 
RLC A 
RLC A 
RET 5 
FVEND LD HL, (are) 
INC HL 


EVI BITO 7, HL) 
IR NZ,FY2 


INC HL 
JR FY1 

Fv2 LD VARE) HL 
RET 
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Capitulo 10 


RUTINA PARA ORDENAR NUMEROS 
EN COMA FLOTANTE 


«Más allá de las montañas, la hierba es más verde.» 
(Proverbio alemán) 


UNA SOLUCION QUE PERMITE REALIZAR EN 145 SEGUNDOS 
LO QUE EXIGE CINCO HORAS EN BASIC 


A aquellos lectores que hayan avanzado hasta estas alturas, dé: 
jenme presentarles una rutina útil y práctica: la ordenación de un con. 
junto o matriz de números en el formato de coma flotante del Spec- 
trum. Se trata del método de ordenación por burbuja («bubble sort») 
prácticamente sin restricciones en cuanto al tamaño del conjunto. El 
tiempo de ejecución depende del cuadrado del número de entradas 
y es aproximadamente igual a /*/7000 segundos para /) entradas 
(unas 125 veces más rápida que su rutina equivalente en BASIC) 
Para 1000 entradas, tardará aproximadamente 145 segundos en orde 
arlas, en vez de las cinco horas que tardaria en BASIC. 

El método de burbuja no es el más rápido pero si el más sencillo. 
Se comparan dos posiciones consecutivas en la tabla y la mayor, si 
no es la primera, se intercambia con la menor. Se va explorando 
repetidamente la tabla hasta que no sea preciso realizar ninguna in- 
versión de elementos, lo cual significará que la rutina ya está en 
orden. En este punto la rutina efectuará su salida. 

La primera pasada desde el principio hasta el final dejará siem- 
pre el valor minimo al final. Si la siguiente pasada se realiza desde 
el final hasta el principio, el valor máximo se colocará al principio 
de la tabla. Con este sistema, la longitud de la parte no ordenada 
de la tabla se reduce continuamente a un elemento menos por cada 
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pasada, y el tiempo total puede reducirse casi en un 50 %. Le dejo 
esto para usted pues lo más dificil ya lo he hecho yo: el traspaso de 
los parámetros y la comparación de números en coma flotante. 


SORTF 


La rutina está dividida en dos partes. Primero la llamada a PCALL 
para obtener la lista de parámetros y la extracción de un parámetro 
localizado seguido de su comprobación. Si el parámetro no es del 
tipo 4 (conjunto de números), la rutina sale sin hacer nada. Entonces 
las variables HFE (inicio de la primera entrada) y HLE (inicio de lá últi- 
ma entrada) son asignadas. Como no tenemos ninguna rutina de 
multiplicación, los saltos de la longitud del conjunto de los datos en 
el área de variables se realizan cargando el byte «número de dimen- 
sic=es» en A y después sumándolo consigo mi-=10. ¡La restricción 
. 


RELE LOMAITUD DEL ELEMENTO, ML MNCIO DEL ULTIMO ELEMENTO, 
MicDan Ms 0e 
PAÑA SALTASE LOS DATOS OL OMISIONES MFE= WCIO-08L PRIMER CLENENTO, 


Sé sonre 


PREPARAR LA YABGA DE OMECCIONES. 
Penco |) ceranatinos 


ALCOCER TO DE Panantrmo 


MO NACER ADA AETONAO 
PO DL PARAMETRO EMOL 


OIMONSIONES. MULTIPLICAN POR 3 POR AQICIONILMTE = 127 OMMENBIOMES 


PREPARAN D COMO MARCADOR OL ACCIOMLE 
SEAL AL EXPONE E OL PAMA RUDA 


COMrARAR DOS HUMOS UN COMA FLOTANTE SEÑALADOS vn | 
souatizacoS 1-8 O a 


TICA mon muros e coma 
RASLADARSTAECOATTT POE AJUETAR DO 
RADA DAL GUIÓN TC nao 
LA 0, SORA E SEMRUZADOR 01 ACANALO de 
E ¡COMPROBACIÓN GU ROO HLOMOATO! 


CLasuncación 
SO cOMAErA 


barca] 
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es que A no puede exceder de 127! Un conjunto de varias dimen- 
siones se trata como si fuera un conjunto de una-sola dimensión. 
El valor más alto se coloca en x(1,1,..). 

El cuerpo de la rutina SORTF tiene una estructura muy directa. 
El registro D se utiliza para indicar que se ha realizado una inversión 
y se carga en SWOPF. COMPF compara dos números consecutivos, y 
sale con el señalizador de cero (Z) a «T» si los números son iguales 
y con el señalizador de acarreo (c) a «1» si el segundo es mayor que 
el primero. Los dos números en coma flotante son consecutivos y el 
registro IX señala el byte de exponente con la dirección más baja. 


Listado 10.1 


SORTF ALL FUALL 
LD HL, (PARMO) 
LD (TYPT+L>,HL 
DET OLD Ay CIYPTA LO 
AND 128+64r32 
cr 128 


RETO mz 
ING HL 
LD (FV1+2),HL 
Pu1 LD C, (PV1+2) 


ADD HL,EC 

LD. BC,-3 

ADD HL,EC 

LD (HLE),HL. 
LD HL, (FARMO) 


LD BC,3 

ADD HL,BC 

LD A, HL 

ADD A 

LD C,A 

LD  B,0 

ADD HL,EC 

INC HL 6 


LD (HFE),HL 
SBODY LD D,O 

LD IX, (HFE) 
1845 NCOMF CALL COMPF 
2870 JR O 7, IGUALES 
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JR ONC,IGUALES 
CALL SWOFF 

JR TNEXT 

LD KCc,5 

ADD  IX,EC 

3900 TNEXT  FUSH 1% 


POR HL 
TS 

LD BC, (HLE) 
SEC HL,KO 

JR NZ,tCOMP 
LD A,D 
ceOoo 

RETO Z 

JR SBODY + 
DEFW O 

DEFW O 

FUSH BC 

LD  B,S 


LD Ay CIX+0) 
LD C, (1X+5) 
LD (IX*0),C 
LD (IX+S),A 


INC IX 
DINZ SW1 + 
POP BC 

LD  D,1 
RET 


COMPF 


En la Figura 10.2 se detalla el formato de un número en coma 
flotante. La rutina es bastante complicada y podría simplificarse mu- 
cho. IX señala al primer byte (de exponente) del primer número cuya 
mantisa está en IX + 1, 2, 3 y 4. El segundo número tiene su expo- 
nente en IX + 5 y su mantisa en IX + 6, 7, 8 y 9. Los signos de los 
números están en IX + 1.e IX + 6. Si son diferentes, el positivo es 
mayor que el negativo. Si son del mismo signo, se comparan sus 
exponentes. En la representación del Spectrum, los exponentes están 
desplazados en 128 y deben ser comparados y comprobar el señali 
zador de aca" >. El significado depende, sin embargo, del =-o de 
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la mantisa, Con mantisas positivas, el exponente mayor pertenece 
al número mayor en coma flotante. Con mantisas negativas, el expo- 
nente mayor pertenece al número menor en coma flotante. El regis- 
tro B adopta un valór no nulo para mantisas negativas. 

Los números del mismo signo y exponentes iguales deben ser 
comparados byte a byte hasta que se detecte alguna diferencia entre 
ellos, si es que la hay. Los bytes de signo, al ser comparados, deben 
comprobarse con operaciones JP P o JP M, ya que el acarreo se 
produce solamente con un número negativo. Los bytes de mantisa 
restantes pueden comprobarse con el señalizador de acarreo puesto 
que no tienen signo. El significado de la decisión en BTL o BTG se 
decide por el signo de la mantisa, según el contenido del registro 8. 
Si no se hiciera esta corrección, los números positivos se separarian 
de los negativos y se clasificarian los dos bloques por orden decre- 
ciente absoluto (sin tener en cuenta el signo). 


Listado 10.2 


4015 COMPF LD H,0 

BIT 7, (1X+1) 
JR O Z,CL1 
BIT  7,(1X+*6) 


ne 


cL3 


4095 
4100 CLó 
4105 XEQ 
4110 
4115 


XEOM 


V1GV2 
4200 
4205 
4210 VILVZ 


BTL 


JR 
LD 
cr 
Je 
JR 
JR 
LD 
JR 
EIT 
JR 
LD 
cr 
JR 
JR 
LD 
cr 
JR 
JE 
JR 
LD 
cr 
JR 
JR 
LD 
cr 
JR 
JR 
LD 
cr 
JR 
JR 
RET 
LD 
(13 
RET 
LD 
cr 
RET 
BIT 
JR 


Z,VILYZ 
A, (1X+0) 
(145) 
M,V1IGV2 
7,CL4 
V1LV2 
B,255 
XE 
7, (1X+6) 
NZ,V1GVZ 
A, (1X+5) 
Co) 
CyVIGVZ 
NZ,VILVY2 
A, (1X+1) 
(1X+6) 
2,XEOM 
F,BTG 
BTL 

Ay (1X+42) 
(1X+7) 
C,BTL 
NZ,BTG 
A, (IX+3) 
(1X+8) 
C,ETL 
NZ,BTG 
A, (1X+4) 
(1X+9) 
C,BTL 
NZ,ETG 


1,B 
NZ,V1GUZ 


m 


JR VILV2 


BIT 1,8 
JR NZ,VILVZ 
JR V1GV2 


UN EJEMPLO PRACTICO DE SORTF 

Este ejemplo se basa en la-utilización del SORTF para imprimir 
una lista de jugadores en orden decreciente de puntuaciones. No hay 
más de 999 jugadores y sus puntuaciones o tiempos pueden repre- 
sentarse por un número de menos de seis digitos. , 

Los datos forman un conjunto numérico a(); los puntos del ju- 
gador n están en el elemento an), Si ordenamos a(), tendiemos los 
elementos por orden de valor numérico pero perderemos la identifi- 
cación del jugador a quien corresponde cada uno. 

Si programamos en BASIC: 


FOR n = 1TO 
LET atm) = 1000* a (n) + n 
NENT n 


entonces cada elemento contendrá ambas partes de la información. 
Los tres últimos digitos identificarán al jugador y los restantes a su 
puntuación. Nótese que, debido a la manera en que el Spectrum 
trata a los números en coma flotante, el valor aparente de aln) podria 
no ser mayor que 1.000.000.000. Podemos escribir ahora: 


LEI USKSORTE 
REM aro 


y el conjunto será ordenado con las puntuaciones más altas al prin- 
cipio y el número de jugador contenido en las últimas tres cifras. 
El elemento n puede ser escrito con: 


PRINT INT (aím) 1000): INT (a(n)-1000 * INT (a(n)/1000)) 


Queda aun otra consideración. Algunos elementos de al) pueden 
ser almacenados internamente en la forma entera, lo cual descon- 
certara a SORTF. Antes de utilizar la rutina, cada elemento debe 
estar en la forma de coma flotante, y la mejor manera de asegurar 
esto es empleando aigo parecido a esto: 


LET all > ati) + 65537 — 65537 
n 


spore seus 
EAS MAS. ve 
RO OIUMLOISTAD e uo sonauzacon M9 


o A 


Icomennan 


oros 
NT e 
20 mor pa 
(ko) senyon spore 


paco Laos 


As e 


Ya ruta pastisa 


al 
ASTON 


de 


AS dE EALaAOn OL car 
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Para una lista de m entradas, el programa podria ser: 


FORn = 1TOm 
LET a (n) = 1000 * a(n) + n + 100000 
NEXT n 


REM a( 
FORn=1TOm 

LETa(n) = a(n) — 100000 

PRINT INT(a(n)/1000); INT(a(n) — 1000*INT(a(n)/1000)) 
NEXTn 


el cual escribirá la puntuación seguida del número de jugador. Donde 
haya dos jugadores con la misma puntuación, éstos estarán ordena- 
dos en forma decreciente por sus números de jugador. 

Todo lo que se necesita es introducir los datos en al) para empe- 
zar y la rutina hará el resto en un abrir y cerrar de ojos. 


Capítulo 11 


EL TRASPASO DE OTROS PARAMETROS 


Hasta aqui tenemos solamente unas cuantas rutinas que pueden 
ser llamadas desde el BASIC. Es relativamente fácil ensamblarlas de 
forma separada (con su propia dirección de carga y sus propias co- 
pias de las subrutinas comunes), procurando llamar correctamente 
a cada una cuando sea preciso. Las desventajas de este sistema son 
evidentes cuando tienen muchas subrutinas en común y éstas se 
multiplican, por tanto, innecesariamente. 

La solución que yo he adoptado se muestra en, el listado 77.1 
Todas las rutinas, etc., están ensambladas juntas (todas las que se 
necesiten) y son llamadas a través de secuencias de código idén 
ticas, que son todas de la misma longitud. 

Primeramente se encuentra el almacenamiento del puntero de pila 
SP para facilitar el regreso a la linea 2 en caso de error; después, el 
almacenamiento de todos los registros utilizados, la llamada especi 
fica a cada rutina (DRAWL, MAPS, etc.) y finalmente el salto a la 
etiqueta común de retorno TRAPS, donde los registros son restaura 
dos y se efectúa el retorno RET al BASIC. 


Listado 11.1 


ORG 
LD 
PUSH 
PUSH 
PUSH 
FUSH 
PUSH 
cALL 
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16 


0045 


0070 


0075 
0080 
0085 
0090 
0095 
0100 
0105 
0110 


0115 
0120 
0125 


0205 


JE 
LD 

PUSH 
FUSH 
PUSH 
PUSH 
PUSH 
CALL 
JP 

LD 

PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
JP 

LD 

PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
JP 

LD 

PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
Je 

LD 

PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
JP 


TRAFT 
(ERROR) ,SF 
AF 

BC 

DE 

HE 

1Xx 

SATTR 
TRAPS 
(ERROR) ,SP 


AR 
BC 


DE 

HL 

1x 

BLOCK 
TRAP$ 
(ERROR) ,SP 
AF 

BC 

DE 

HL 

Ex 

SORTF 
TRAPF 
(ERROR) ,SP 
AF 

BC 

DE 

HL. 

IX 

GCELL 
TRAPF 
(ERROR) ,SP 
AF 

Ec 

DE 

HL 

1x 

MAPS 

TRAP+ 


LD (ERROR) ,SF 
FUSH AF 

FUSH EC 

FUSH DE 

FUSH HL 

PUSH IX 

CALL IVERT 

JE TRAPS 

LD (ERROR) ,SF 
PUSH AF 

PUSH BC 

FUSH DE 

FUSH HL 

PUSH IX 


Estas entradas comunes son todas de 16 bytes de longitud y las 
rutinas pueden llamarse mediante un desplazamiento respecto a la 
dirección de origen: 


DRAWL en USR + 0 
SATTR en USR + 16 
BLOCK en USR + 32 


y asi sucesivamente. Un programa BASIC (o solamente su inicio) 
podría parecerse al listado 77.2. Esto tiene la ventaja de que si hay 
que cambiar la dirección de carga de la rutina, solamente es nece- 
sario alterar la línea 10 del programa y-que, después de la prepara- 
ción inicial, las rutinas pueden ser llamadas por sus mnemónicos en 
vez de hacerlo por los valores numéricos. (Las rutinas SATTR y 
DRAWL se describen en los capítulos 13 y 14.) 


Listado 11.2 


1 LET error 
2 FRINT "ERROR 
10 LET 
11 LET 
12 LET 
13 LET 
14 LET 
15 LET 
16 LET 
17 LET ivert=base+96 


60 TO 10 
¿error: STOP 
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DIM a(44) 

FOR m=1 TO 44 

LET a(m)= RND *107í INT ((30* 
NET m 

60 SUB 0 

LET 1= USR sortf+ 

REM ad: 

PAUSE 1 

GO SUB 
RETURN 
CcLs 
FOR m=1 TO 44 STEP 2 

FPRINT a(m),a(m+1) 

NEXT m 

RETURN 

PRINT AT 3,53 "DEMOSTRACION DE COLO 
FOR k=0 TO 255 

LET 1=demo1 

REM k:0,0,14,7, 


18 LET movec=base+112 

19 LET svert=base+126 

LET draw. ¡aser144 
LET demoi=base+160 

LET demo2=base+176 
GO SUE 70: PAUSE 20 
60 SLE 
2000: GO TO 21 
30 LET 5 

41 DIM kstb, 
42 FOR TO b 

43 LET ks(x,1)= CHAS 255 
44 LET k4(:,2)= CHRF 255 
45 NEXT 
50 LET k=0 

51 LET ol=0 

53 LET l= USR movec 

54 REM LEER POSICION DEL CUPSOR 

56 FPRINT AT 0,05" > PRINT AT 


60 SUE 80: GO SUB 
60 SUB 400: GO SUB 


y 


1: FOKNE 23560,255 NEXT k 
[F 101 THEN LET 1565535 RETURN 
Se LET k=k+1 DIM g(5) 


FOR g=1 TO 500 
LET g(5)= INT (255% END ) 
LET g(3)= INT (31% RND > 
LET g(4)= INT (23% RND ) 
LET gí1)= INT (g(3)% AND) 
LET g(2)= INT (g(4)* RND ) 

LET 1= USR demo2 
NEXT g 

RETURN 

FOKE 23675,0: FOKE 
FOR x=0 TO 224 STE! 


50 LET +£(k,2)= CHRS INT (1/256) 

5 LET kF(k,1)= CHRS INT (1-256%( INT 
7) 

IF k=1 THEN GO TO 58 

m= USR drawa 


64 LET ol= 
45 FRINT AT 0,63h 
60 TO % 


USR sattr 


REM ,15,11,8, 
LET 1= USR sattr Lerdo 05R Berta 
EM :16,12,31,23,16, POKE 38400,x 


NEXT RETURN 


< USR sattr E 


4 
75 REM :24,0 16,24, 


76 RETURN Ahora deberia explicar algo: las sentencias REM en el listado 11.2. 
20 LET l= USR ma; Antes, en el Capitulo 9, mostré cómo los NOMBRES de las variables 
81 RETURN e podian ser traspasados pero dejamos a un lado (debido a que era 
1901069 =* DOBE a 1060 0* LOOSE para todavia demasiado complicado) el traspaso de valores numéricos y 


n8 m9 


de cadenas. En el Capitulo 10 utilizamos un nombre de conjunto 
numérico traspasado para suministrar los punteros necesarios a la 
rutina SORTF. Ahora vamos a volver a las omisiones del Capítulo 10. 


OPARS (Otros parámetros) 


Estos parámetros deben ser compatibles con los nombres de pará- 
metros recogidos por PCALL, es decir, que pueden estar presentes 
en la misma linea REM donde se encuentran los nombres de los pa- 
rámetros» La manera más fácil de conseguir esto es dividiendo la 
lista de parámetros en dos partes: primero los nombres, terminados 
con un carácter de dos puntos, y luego los valores numéricos y ca- 
denas, Puede darse el caso de que no existan nombres de parámetros 
pero, aun asi, deberian mantenerse los dos puntos para señalar el 
inicio de la parte de valores y cadenas. 

Las especificaciones para estos parámetros son: 


— Cada elemento, incluido el último, debe terminar con una 
coma. 

La inea MEM dele terminar con un carácter ENTER. 

— Los valores son enteros de 16 bits sin signo. (Sus valores pue- 
den encontrarse en las variables VPARO, VPARO + 2, etc.) 

— Las cadenas están delimitadas por comillas (») a cada extremo, 
pueden ser de cualquier longitud y deben terminar con una coma 
después de las comillas de cierre. No deben contener dobles comi- 
llas. La dirección del primer carácter de cada cadena puede hallarse 
en SPARO, SPARO + 2, etc. 

— No se traspasa ningún dato acerca de las posiciones relativas 
de los valores y cadenas en la lista de parámetros; sólo se guarda 
constancia de sus posiciones relativas dentro de cada clase. 

— Para permitir traspasar el O como un valor, se utiliza un byte 
subsidiario, SBITZ, y tiene los bits 7, 6, ... ajustados al valor 0 6 1 de- 
pendiendo de si VPARO, VPARO + 2, etc., son válidos. 

OPARS forzará los siguientes retornos por error: 


10 no se ha encontrado el final de la linea REM 
11 carácter que no es un dígito, en un número 
12 demasiados parámetros (más de 6) 

13 falsa lectura de un número 

14 número mayor de 65535 
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Listado 11.3 


4255 OPARS 


4260 
4265 
4270 
4275 
4280 
4285 
4290 
4295 
4300 
4305 
4310 
4315 
4320 
4325 
4330 
4335 

340 
4345 
4350 
4355 
4360 
4365 
4370 
4375 
4380 
4385 
4390 


vPL 


GNE1 


GNB2 


4395 


4400 
4405 
4410 
4415 
4420 
4425 
4430 
44935 
4440 
4445 


LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LDIR 
LD 
INC 
INC 
LD 
LD 
INC 
INC 
CALL 
ce 
RET 
cP 
JR 
CALL 
cre 
RET 
ce 
JR 
cre 
JR 
cr 
Je 
ce 
Je 
cr 
Je 
JR 
SUB 
PUSH 
PUSH 


HL,SPARO 
(SFZ) HL 

HL ,VPARO 
(VEZ), HL 

HL,O 

(SPARO) y HL. 

HL, SPARO 

DE ,SPARO+1 
BC,SBITZ-SPARO+1 


HL, (NXTLN) 
HL 

HL 
(VEL+Z) y HL 
BC, (VPL+2) 
HL 

HL 

GETEY 

13 

z 


NZ,GNE1 
GETBY 
13 


Z,STSTR 
“qn 
M,ERX11 


P,ERX11 
7,EOPAR 
«9 

HL 

BC 


121 


122 


4585 
45390 
4595 
4600 
4605 


ERX1A 


5 EOFAR 


VFLZ 


A 


HL, ¿NUME) 
HO HL 


HL,BC 
C,ERX14 
(NUMB) , HL 
Al 
(NNR),A 
BC 


A, (NNR) 
o 

7,ERX13 

A, (SBITZ) 

A 

7, 
(SBITZ),A 
HL, (NUME:) 
BC, (VPZ) 
(VPL2+1),BC 
(VPL2+1) HL 
EC 

BC 

(VEZ) BC 

HL ,NUMB+2 

a A 


4655 


4600 
4665 


4773 
4780 
4785 
4790 
4795 
4800 
4805 


GETBY 


ERX10 


CNLIME HL 
A, 
CINE 
Bo 
HL 
Gh 
HL 
BC 
DE, HL 
BC, (SPZ) 
HL, VFARO 
A 

HL,BC 
Z.ERX12 
DE, HL 
(YE 
CEL 
BC 
BO 
(SFZ) BC 
BO 

HL 

GETBY 


3,8 


1),BC 
1) ,HL 


NZ,REORC 
GETBY 
Z,GNB2 
13 

z 

GNB3 

BC 

7,8 
NZ,ERX1O 
A, (HL) 
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4B66U ERXAA CALL ERREX 


LD DE,11 

JR ERXAA 

ERX12 LD  DE,12 

JR ERXAA 

ERX13 LD  DE,13 

XAR 
vPZz 
sPz 
SFARO 
UPARO 
NUME 
NNR 
SBITZ 


Operación 


Como que la rutina pude llamarse muchas veces, todo el espacio 
de trabajo se borra primeramente y los punteros— SPZ para cadenas 
y VPZ para valores — se ajustan para señalar al inicio de las respec- 
tivas listas, SPARO y VPARO. 

En VPL, el registro BC se carga con el número de caracteres en 
la línea de parámetros siguiente a la llamada USR ... y HL se ajusta 
para señalar al primer byte. GETBY lee los bytes en forma secuen- 
cial utilizando HL y decrementando 8C (con error 10 si BC se vuelve 
negativo) el cual está preservado para esta utilización. El carácter 
leído se almacena en el registro A. 

En GNBT se leen los caracteres hasta que se encuentra un carác- 
ter 13 (ENTER) o bien un carácter de dos puntos. Los dos puntos 
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ocio (A Cabina 


soma ra mbiccón [emos a o 


Fonasa a oneccin sc or aracinmento ocsalaLRaoto JUICIO RO 


Era Se 


estan 06 


esta 
EIACIAO 


CI e 


e 


SO 
05 AAN 


Diagrama de flujo 11.1 


125 


AMOS 


marcan el final de la parte de nombres de parámetros, la cual puede 
estar vacia. 

En GNB2 se analizan los caracteres que se encuentran después de 
los dos puntos. Un carácter 13 termina la rutina. Los espacios son 
ignorados. Una coma se reconoce como final de parámetro (salto 
a EOPAR), y las comillas se reconocen como el inicio de una cadena 
que debe tratarse en STSTR. Todo lo que pueda quedar debe ser un 
digito decimal o bien un error. 


Números 


Los códigos ASCII de los números están dispuestos en forma se- 
cuencial desde el 48 decimal para el «O» hasta el 58 dec. para el 9 y 
los dos puntos tienen el código ASCII 59 en decimal. Restándoles 
el código del 0 se obtiene una representación binaria válida del digito 
obtenido. 

Los registros HL y BC se almacenan para la siguiente utilización 
en GETB8Y y HL es cargado con NUMB, que contiene el resultado 
Parcial de la evaluación del valor (o cero). HL se multiplica por 10 me- 
diante el desplazamiento y suma y después se le suma A para obte- 
ner un nuevo resultado parcial el cual se guarda nuevamente en 
NUMB. En cada paso se comprueba HL por si se produce un des- 
bordamiento («overflow») de su valor y se genera un error 10 si es 
preciso, NNR se ajusta a un valor no nulo para indicar que se está 
leyendo un número y se restauran los registros HL y BC, dispuestos 
para leer el siguiente byte de entrada. 


Fin de parámetro (EOPAR) 


Si NNR tiene un valor nulo, una condición de error (doble coma 
o un valor perdido) provoca la aparición del mensaje de error 13. En 
Otro caso habrá sido leido un número válido y se podrá poner a «1» 
Un nuevo bit de SBITZ. Si el número era cero, la entrada VPAR de- 
bería ser también cero. Una entrada no nula no puede utilizarse como 
comprobación para la presencia de entrada, como se hace en SPAR 
para las cadenas, ya que 0 es el inicio de la memoria ROM. VPL2 es 
una instrucción computada que carga HL en la lista VPAR y después 
se incrementa VPZ en 2 para señalar al elemento de los dos bytes 
siguientes, Si señala a NUMB + 2, la tabla se ha desbordado y se 
genera un error 12, NUMB y NNR se borran para quedar listos para 
el siguiente parámetro de valor. 
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Nota: La secuencia entre las etiquetas VPZ y SBITZ no debe ser 
alterada aunque se cambie el número de elementos en las lis- 
tas VPAR y SPAR. 


Inicio de cadenas (STSTR) 


HL señala al byte que se encuentra inmediatamente después de 
las comillas que ha sido leido por GETBY. Se guardan HL y BC, y HL 
(la dirección del primer carácter de la cadena) se guarda en DE; 
OR A pone a cero cualquier señalizador de acarreo y se compara SPZ 
con VPARO, el cual indica ei final de la lista SPAR. Si existen dema 
siados parámetros de cadena, se genera de nuevo un error 12. VPL3 
es una instrucción de carga computada del valor restaurado de HL 
(desde DE) en la tabla de direcciones de las cadenas. 

Una vez que la tabla de direcciones de las cadenas se ha car 
gado, RFORC lee la cadena para localizar las comillas del final y des 
pués la coma o bien el carácter 13, 


SINOPSIS 
OPARS permite traspasar constantes, valores enteros y cadenas 
desde un programa BASIC a una rutina en código máquina. Estos 


parámetros deben colocarse en una linea REM después de un carác: 
ter de dos puntos. 
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Capítulo 12 


BORRADO DE BLOQUES DE BASIC 


Si se desea eliminar un conjunto de líneas de un programa en 
BASIC, porque hayan quedado obsoletas, por ejemplo, habrá que 
teclear normalmente cada número de linea por separado lo que puede 
hacer perder mucho tiempo. Muchos otros microordenadores poseen 
un comando DELETE a,b o similar, que elimina de una vez las lineas 
desde la a hasta la b. 

La siguiente rutina usa OPARS para borrar cualquier cantidad de 
líneas de programa. Es aconsejable consultar al Capitulo 24 del ma 
nual del Spectrum al seguir la descripción de la rutina. Esta precisa 
de dos parámetros de valor —ambos números de linea y borra 
desde la primera hasta la segunda (pero sin incluirla). La técnica con 
siste en el borrado de cada línea individualmente seguido del ajuste 
de VARS. El sistema BASIC debe ser preparado con CLEAR tanto 
antes como especialmente después de utilizar la rutina. 

Primeramente vamos a ver algunas subrutinas para recoger las 
líneas individuales y examinarlas (véase Diagrama de Flujo 12.1). NÓ 
tese que existen varias formas de entrar en un bloque común de 
código. 


SUPLN («Set Up LiNe pointers») 


SUPLN ajusta los punteros de las lineas de programa; es utilizada 
por las otras rutinas para señalar a la primera linea del programa 
BASIC. Esta y las otras eliminan los contenidos de los registros a la 
entrada, y las condiciones de salida son las siguientes: 


HL contienesel número de la (nueva) linea 
BC contiene la longitud en bytes de la linea de datos 
DE señala al primer carácter de la línea 


SeñalizadorZ está a «uno» si no hay más datos 
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eat 


Lera RR 


contar _CNXLN SUPIN usan | 


NA 


HL OIPECCION ARTO DECO 
BE LONOTUO ANTEMOR 


HL== HL+BC+4 


RESLN 


Nal Ft oe ca vanas 
ESTA AR ALDO E acanmeo 
A 


Mi= ML Ho, 


” ENALAR A LOS BYTES DE LONGITUO 
HL=HL-+2 COmPuTAR LA INSTRUCCION DE CARGA DE BC 


HL IÓ nu numeno DE LINEA Es EL ESTILO DE NUMERACIÓN DEL SPECTRUM) 
SWOP. INVERTIR LOS BYTES DEM 


MI T__mx2 NUMERO DE LINEA (EL BYTE MENOS SIGMFICATIVO DELANTE! 
MM DE LUINEA 1 M0 
BC LONGITUD DE LA MEA 
DE DIBECCION DEL PRIER avTE 
MA + OIMECCION DEL e." DE UNEA 


(RECOGER LOS DATOS DE LA LINEA DEL PROGRAMA BASIC) 


Diagrama de flujo 12.1 
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Las variables M1, M2, M3, Má y M5 se utilizan de la forma si- 
guiente: 


m1 dirección del primer byte del número de linea 
M2 longitud de esta línea en bytes ( - BC) 
M3 número de esta linea (=HL) 


M4-M5 almacenamiento temporal mientras se borra una linea 


Listado 12.1 


4985 SUPLN LD HL, (PROG4) 
4990 SUPLM LD (Mi),HL 


4995 LD EC, (VARSS) 
5000 DR OA 
5005 SEC HL,BC 
5010 RETO Z 
5015 LD HL,(M1) 
5020 SUPLL INC HL 
INC HL 
LD 
5035 SFLA LD 
5040 LD 
5045 INC HL 
5050 INC HL 
5055 EX DE,HL 
5060 LD HL, (mi) 
5065 LD (SFLE+1),HL 
5070 SFLB— LD  HL,(SPLB+1) 
5075 LD AH 
5080 LD HL 
5085 EN EA 
5090 LD (M3>,HL 
5095 RET 
5100 CNXLN LD  EC,(M2) 
5105 LD HL, (M1) 
5110 ADD HL,BEC 
5115 INC HL 
5120 INC HL 
5125 INC HL 
5130 INC HL 
5135 JR SUPLM 
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KAKI TN titi 


5140 RESLN LD (M1),HL Ena 
5145 JR SUPLL 

150 Mi RETA 9 PARO NUMERO DE LA ALA DE MICA 
5155 M2 DEFW O A OL NUERO DE UML 
5160 M3 DEFW O 

S165 M4 DEFW O TT 

5170 MS DEFW O 


5175 PROGS EQU 23633 


CNXLN («Continue with NeXt LiNe») 


(Continúa con la linea siguiente.) Esta subrutina utiliza los regis- EnnoR 20 suero |] nranan as nurmas or exacción 
tros de forma parecida a SUPLN pero para la siguiente linea de pro- 
grama. Ajusta HL no a PROG, como hace SUPLN, sino a M1+M2+4, O ad ad 
que es el primer byte de la línea siguiente. rs ae 
pS . 
MA) 
RESLN («REStore LiNe») exa |] 


éstaunan ocsor 


ue , E OO 
[Restaura la linea.) Después de que una linea haya sido borrada, E erario: EROS 
en el lugar donde empezaba aquélla se encuentra ahora el comienzo O A 
de la siguiente linea no borrada. RESLN ajusta los registros y las po- ou 
5iciones de memoria de acuerdo con esta nueva linea. Do (> 


OPERACION DE SUPLN se 


A la entrada, HL contiene la localización de una línea (inicial- 


mente la primera). Esta dirección se almacena en M1 y se compara a? 
con el valor de VARS. Si HL ha alcanzado ya VARS, significa que A pa 
ya no hay más lineas y se efectúa una instrucción RÉT 2. ES 

En SUPLL se incrementa HL en dos unidades para señalar a los En escaoa 10 caros 
bytes de longitud de linea, y este valor se almacena en SPLA + 2, e a 
que es la segunda mitad de la siguiente instrucción. La instrucción nO A RASIADADUSO 


computada en SPLA carga BC con la longitud de la linea actual y la 
guarda en M2. La instrucción computada en SPLB carga entonces HL 


RESON ] 


con el número de linea, «el cual se encuentra en posición invertida do A 
Y, por tanto, se invierten entre sí los registros H y L y se almacenan ED S 
en M3, ejecutándose después el retorno. En todas las circunstancias 
normales, el señalizador Z estará a cero ya que no hay ninguna ins. Diagrama de flujo 127 E 
Trucción que afecte a los señalizadores, aparte de la comprobación 


132 133 


de SBC, después de SUPLM. Téngase en cuenta que al entrar en 
RESLN, el señalizador Z tiene valor cero. 


OPERACION DE BLOCK 
(Véase Diagrama de flujo 12.2) 


BLOCK precisa de dos parámetros, y su llamada se efectúa de 
la forma siguiente: 


LETL=USR... 
REM: 174, 8234, 


Si el segundo parámetro es menor que el primero, la rutina no 
hace nada. Se llama a OPARS para leer los dos parámetros, los cuales 
serán almacenados en VPARO y VPARO + 2 como números de 
16 bits. 

Se comprueba SBITZ para asegurar que sólo hay dos parámetros 
(se produce error 20 en cualquier otro caso), y el valor del segundo 
Parámetro se comprueba también para asegurarse de su validez 
(debe ser menor de 10000). Se llama entonces a SUPLN para señalar 
a la primera línea BASIC y en TSTLN se compara el número de línea 
con el valor del primer parámetro. Si el valor es demasiado bajo, se 
llama a CNXLN para que localice la línea siguiente, y el proceso se 
repite mientras queden lineas para ser examinadas. Si el número de 
línea es igual o mayor que el primer parámetro, se produce entonces 
un salto hacia la rutina BDLE1. 


Listado 12,2 


S180 BLOCK CALL OPARS 


$185 LD A, (SBITZ) 
5190 XOR  128+64 
5195 JR Z,BLA 
LD DE, 
CALL ERREX 
LD HL, (VFARO+2) 
LD BC,10000 
0R A 
SEC HL,BC 
JP P,BLRR 
CALL SUFLN 
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> 5240 TSTLN 


BDLE1 


BDLE2 


5430 
5435 BDONE 


LD 
or 
SsBC 
Je 
CALL 
JR 
JR 
ADD 
LD 
OR 
SEI 
Je 
LD 
LD 
CALL 
JR 
LD 
LD 
LD 
LD 
OR 
SEC 
FUSH 
POP 
LD 
LD 
LDIR 
OR 
LD 
LD 
sÉC 
PUSH 
POP 
LD 
sBC 
LD 
LD 
CALL 
JR 
RET 


EC, (VFARO) 
A 

HL, EC 
F,BDLE1 
CNXLN 

7, BDONE 


HL, (m1) 
(m4) ¿HL 
CNXLN 

Z , BDONE 
HL, (M1) 
(MS) HL 
HL, (VARSS) 
BC, (15) 

A 


HL, BC 
HL 

BC 

HL, (m5) 
DE, (M9) 


A 
HL, (M5) 
BC, (M4) 
HL, EC 

Hi 

EC 

HL, (VARSS) 
HL, EC 
(VARSS) , HL 
HL, (M4) 
RESLN 
NZ,TSTLN 
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BDLE1 


El número de linea se compara con el valor del segundo pará- 
metro, la linea límite superior. Si es menor que este limite. la linea 
debe ser eliminada mediante BDLE2; en otro caso, la rutina sale en 
BDONE hacia el cruel y frio mundo del programa BASIC acortado. 


BDLE2 


La linea debe ser borrada. La dirección de inicio se 
y se llama a CNXLN para determinar la dirección de lo y la pre- 
sencia de la linea siguiente, BLOCK, especificamente, NO borrará 
la última linea del programa BASIC. 

Se carga BC con el número de bytes que deben ser retenidos 
(desde el inicio de la linea recogida por CNXLN hasta la dirección en 
VARS) y se preparan DE y HL para que la instrucción LDIR desplace 
todo el conjunto de forma que cubra a la linea eliminada. 

VARS se reduce entonces según la longitud de la linea eliminada 
y Mela a RESLN (con el señalizador Z a cero). 

proceso se repite en TSTI il 
api ja pelle donde se comprueba la siguiente 
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Capítulo 13 
AREA DE ATRIBUTOS 


El área de atributos controla los colores de tinta y papel («INK» y 
«PAPER») y las caracteristicas de brillo y parpadeo («BRIGHT» 
y «FLASH») de cada carácter de la pantalla. Estos atributos están 
dispuestos en forma secuencial a partir de la posición 22528, en 
forma de 24 filas de 32 columnas. Esta rutina permite alterar todos 
o algunos de los atributos en un área rectangular especificando el 
límite superior izquierdo y el inferior derecho del área deseada, junto 
con el byte de atributo réquerido. 

La llamada es de la forma: 


LETL = USR... 
REM:X, Y, Xys Y ys A, 


El valor de las X debe estar comprendido entre 0 y 31, y el de las 
Y entre O y 23. El valor A (atributo) es un número decimal, según la 
Figura 13.1, que define las características que van a ser presentadas 
en pantalla. Recuérdese que es posible ocultar el contenido de la 
pantalla ajustando al mismo color la tinta y el papel, revelándose pos. 
teriormente el contenido al cambiar uno de los dos colores. 

En la rutina pueden generarse dos errores: 


30 limite superior izquierdo más bajo o más a la derecha que 


el límite inferior derecho. 
31 alguno de los recuadros especificados se encuentra fuera 


del área de atributos. 


OPERACIÓN (Ver Diagrama de Flujo 13.1) 
OPARS recoge los valores que se suponen presentes, y se calcula 
STRTA como la dirección del primer byte de atributos que debe ser 


cargado. 
137 


128 rarenoro rasa 
4 onu mem | 
O | oncaronco 
B ramas 
16 | 2now0unos 
24 2mcona 
32 | vooencncom 
GO samcnestencran 
48 | e amannonviom 
S6__> encore 


POR TANTO, 1832 "UN PAPEL VERDE PANPADEANTE Y UNA TINTA BLANCA. 


AMIA DE ATUTOS -- SIGMPICADO DE LOS arts 


Figura 13.1 


] 


CDIFF contiene la diferencia de + 1 en las columnas (valores X) 
especificados y RDIFF la diferencia de + 1 en las filas. Si los valores 
de fila o de columna son los mismos, se podrá tratar una sola fila 
o columna. Cuando se efectúen varias llamadas, recuerde que si el 
límite inferior derecho de una coincide con el limite superior izquierdo 
de otra, se producirá un solapado entre ambos, siendo el anterior 
Carácter sobreescrito por el último. 

Una vez que RDIFF y CDIFF han sido ajustados, el bucle doble de 
la rutina ATTRL F 13 escribe las RDIFF filas de CDIFF atributos. Cada 
fila de atributos comienza 32 bytes después del inicio de la fila ante- 
rior y no hay que tratar con las complicaciones del trazado «pixels» 
(PLOT). 
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SATTR 


Eva 


COMPUTAR LA DIRECCION DEL PRIMER BYTE DE ATRIBUTOS 


<A 
VPARD + 8 


Diagrama de flujo 13.1 
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ATTRL 


De DIFE NUMERO DE FILAS 
ME DIMECCION DEL PINE BYTE DE ATRIBUTOS. 


DCDIFE numero oK ayres - armeutos ron ma 
A=zATTRB a 


ESCIUIR  EL ARCA DE A 


HL =<HL +1 ze 


BaB 1 orcnementan ei CONTADOR DE BYTES OE LA FIA 


PSTAURAR AL a 
PESTAUBRAR BC TRASLADO ALA SIGUENTE PMA. 


BFB-1 orcnementan ex contacon 


DENCAS 
no, Y 


iagrama de flujo 13.2 


Listado 13.1 


SATTR 


CALL OFARS 
LD HL, (VARO 
ADD HL,HL 

ADD HL, HL 

ADD HL,HL 

ADD HL,HL 

ADD — HL,HL 

LD EC, (VPARO) 
ADD HL, BC 

LD BC,163984+6144 
ADD HL,BC 

LD (STRTA),HL 
LD O A, (PARO) 
CF 2 

JP O P,ERX31L 

LD BA 

LD A, (PARO 

cr 

Je 

SUB 

JR 

INC 

LD (CDIFF),A 
LD A, (VFARO+2) 
cp 24 

Je 

LD B,A 

LD A, (VEARO+6) 
cr 4 

Je P,ERX31 

SsuBÉ E 

JR C/ERX3O 
INCA 

LD (RDIFF),A 
LD A, (VEARO+8) 
LD (ATTRE),A 
CALL ATTRL 

RET 

DEFE o 


181 


5708 
5710 
5715 
5720 
5725 
5730 
5735 


Listado 13.2 


5740 
5745 
5750 
5755 
5760 
5765 
5770 
5773 
5780 
5785 
5790 
5795 
5800 
5805 
5810 
5815 
5820 
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CDIFF 
RDIFF 
STRTA 
ERX3O 


ERX31 


ATTRL 


ATTRN 


ATTRM 


DEFE O 
DEFE O 

DEFW O 

LD DE,30 
CALL ERREX 
LD DE,31 
CALL ERREX 


LD A, (RDIFF) 


LD B,A 
LD_ HL, (STRTA) 
PUSH BC 

PUSH HL 

LD A, (CDIFF) 
LD B,A 

LD A, C(ATTRB) 
LD (HL),A 
INC HL 

DINZ ATTRM 

POP HL 

LD BC,32 

ADD HL,BC 

POP BC 

DJNZ ATTRN 

RET 


Capítulo 14 
GRAFICOS EN ALTA RESOLUCION 


El Spectrum tiene una resolución en pantalla de 256 «pixels» hori- 
zontales por 192 verticales. En este capitulo se presentan rutinas para 
trazar lineas y mover un cursor a través de ellas, asi como un pro: 
grama elemental de dibujo. 

La única forma de trazar una linea entre dos puntos de la pan 
talla del Spectrum es dibujar, punto por punto, mediante PLOT, to: 
dos los puntos posibles en la linea entre X,, Y, y X,, Y,, efectuán: 
dolo preferiblemente de una forma rápida. 

Una manera de hacer esto que produce unos resultados razona 
bles es la siguiente: encontrando incrementos DX y DY, no necesa- 
fiamente enteros o positivos en X e Y que puedan ser sumados re- 
petidamente a X,, Y, para que la linea formada se dirija a X,, Y,. 
Esto es, en principio, lo que sucede cuando se dibuja una linea con 
una regla en un papel cuadriculado. 

Los problemas aparecen ahora. ¿Cómo vamos a manejar las frac 
ciones si hasta ahora sólo hemos tratado con números enteros? ¡No 
se asuste! La respuesta no está en los números en coma flotante sino 
en el sistema de escalado. 

El escalado es una técnica muy utilizada en la programación en 
lenguaje máquina para manejar valores distintos al byte o palabra 
norméles de la máquina. A título de ejemplo, tomaremos los pun 
tos X e Y de la pantalla como números de 16 bits. El byte más signi 
ficativo representará los puntos reales que pueden ser trazados y el 
byte menos significativo representará las partes fraccionales que 
'no pueden trazarse. 

Tomamos las diferencias aritméticas (con signo) entre las X y 
entre las Y y dividimos cada una de ellas por 256 (mediante el cambio 
de signo del byte) para generar las diferencias DX y DY. Esto fun 


ciona debido a que la máxima diferencía entre dos X_ es de 255 pero 
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recordemos que hay que tratar a DX y DY como valores de 16 bits 
y tener en cuenta su signo en el byte más significativo. Para reducir 
el trabajo al trazado (PLOT), DX y DY se desplazan a la izquierda 
hasta que su digito más significativo representa una cuarta parte de 
Un punto. Cuanto más discontinua sea la linea resultante menos 
nempo requerirá. La elección es suya y debería realizar pruebas modi. 
ficando la rutina SDIFF que ajusta DX y DY antes de ser ullizados 


Listado 14.1 
CALL OPARS 
LD A, (PARO) 
LD BA 
LD A, (UPARO+2) 
LD C,A 
LD A, (VPARO+4) 
LD D,A 
LD A, (VPARO+6) 
LD EA 
5870 XLINE LD (YO+1),8C 
5875 LD (x0),BC 
5880 LD (Y1+1),DE 
5885 LD (X1),DE 
5890 LD Ao 
5895 LD (X0),A 
5900 LD (X1),A 
5905 LD (YO),A 
s910 LD (Y1),A 
5915 LD (DX),A 
5920 LD HL,(X1+1) 
5925 LD BC,(X0+1) 
5930 NS 
5935 SBC— HL,BC 
5940 LD (DX),HL 
5945 LD (OLDDX),HL 
5950 LD HL, (Y1+1) 
5955 LD BC,(YO+1) 
5960 NS 
5965 SBC— HL,BC 
5970 LD (DY),HL 
5975 LD COLDDY),HL 
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5980 
5985 
5990 
5995 
6000 
6005 
$010 
6015 
6020 
6025 
6030 
6035 
6040 
6045 
6050 
6055 
6060 
6065 
6070 
6075 
6080 
6085 
6090 
6095 
6100 
6105 
6110 
6115 
6120 
6125 
51 
6135 
6140 
6145 
6150 
6155 
6160 
6165 
6170 
6175 
6180 


NPOIN 


INVPT 


GNXPT 


LPOIN 


YO 
xo 
Yi 
x1 


CALL 
LD 
LD 
LD 
LD 
LD 
LD 
CALL 
OR 
LD 
CALL 
RET 
LD 
LD 
ADD 
LD 
LD 
LD 
ADD 
LD 
LD 
cr 
JR 
LD 
cr 
JR 
IR 
LD 
LD 
LD 
cr 
RET 
LD 
LD 
LD 
(53 
RET 
DEFW 
DEFW 
DEFW 
DEFW 


SDIFF 
A, (YO+1) 
E,A 
D,A 
Ay (x0+1) 


HL, (x0) 
BC, (OLDDX) 
HL, BC 

(x0) ¿HL 
HL, (YO) 
BC, (OLDDY) 
HL, BC 

(YO) ,HL 

A, (YO+1) 

D 
NZ,NPOIN 
Ay (X0+1) 

E 

Z,GNXPT 
NFOIN 

A, (X0+1) 
E,A 

Ay (X1+1) 
B 

NZ 

Ay (Yo0+1) 
B,A 

Ay (Y1+1) 

B 


o 
o 
o 
o 
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XLINE 


Zu % se cargan en los bytes «bajos» de HL y BC, los bytes 
(altos» son cero y DX es un valor de 16 bits con signo formado 
por X, —X,. El byte «alto» es cero o bien todo «unos». 

De forma similar, DY se forma a partir de Y,—Y,. La subrutina 
SDIFF produce los valores de DX y DY tan grandes como sea po. 
sible pero no más de un cuarto de un elemento de imagen («pixel), 
y coloca sus valores en OLDDX y OLDDY. 


NPOIN 


Aqui es donde se dibuja el punto siguiente. BC (y DE) se cargan 
com 125 Coordenadas Y en B, X en C y se llama a PLOT. INVPT, que 
Puede ser una instrucción OR o XOR, modifica el contenido de la 
memoria de pantalla (buffer). X, e Y,, comó números de 16 bits, se 
incrementan con los valores fraccionarios de OLDDX y OLDDY hasta 
Que los nuevos X, o Y, difieran de los antiguos valores almacena. 
dos en DE. 

Este nuevo punto calculado se dibuja y se repite el proceso hasta 
que el punto dibujado coincide con X, Y,, donde la subrutina NPG 
retorna con el señalizador Z a «UNO». 


SDIFF 


Todo esto está hecho en forma de remiendos pero púede ser me- 
Jorado. DX y DY pueden ser desplazados a la izquierda mientras cue 
bytes más significativos sean todos ceros o todos unos y desplazados 
después dos lugares a la derecha. 

Ahora podemos ya dibujar una línea entre dos puntos. Probable- 
mente no lo utilizará usted mucho ya que el próximo paso es aún 
más interesante. 
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XLINE 


TRAZAR O BORRAR EL PUNTO. 


ICRA 50 con o Hl 


INCREMENTAR YO COR OLODY 


PLINE 


OPARS 


por 
CY, b pamantraos ue vato 
A 
EY 

CAMARO 10 X1 0 YY 

PALPAR Ox Y OY 


sor PIUPARAR OLOOX Y OLDUY 


PRIPARÍA BC y DE 


[[ euor 


LPOIN CoMPRorAcON OL UL ISO muro 


1000 HA NO 


Diagrama de flujo 14.1 
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Listado 14.2 


6350 DRAWL 


6355 
6360 
6365 
6370 
6375 
6380 
6385 
6390 
6395 
6400 
6905 
6410 
6415 
6420 
6425 
6430 
6435 
6440 
6445 
6450 
6435 
6460 
6465 
6470 
6475 
6480 
6485 
6490 
6495 
6500 
6505 
és10 
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HL, (SPARO) 


6545 JR NBY 
6550 JRVX LD A, (BYTEV) 
6555 LD B,A 

6560 LD A 

6565 LD (BYTE), 
6570 LD mk 

6575 DRA 

6580 POP DE 

6585 POP. BC 

6590 +RET 

6593 JROX  SCF 

6600 FOF DE 

6605 POP. BC 

6s10 RET 


6615 BYTEV  DEFB O 


DRAWL 
Trazado de una lista de lineas 


DRAWL tiene sólo un parámetro: una cadena cuyo contenido es 
una lista de digitos y comas interpretados como pares X e Y que 
la rutina traza desde el par 1 al 2, desde éste al 3, y así sucesivamente 
hasta el final de la lista. Nótese que no se comprueba la validez de los 
valores, excepto cuando GVAL8 pasa solamente los'8 bytes menos 
significativos de cualquier valor que encuentre. Estas comproba 
ciones pueden ser insertadas si se desea. 

OPARS recoge un parámetro de la cadena y GVALS recupera 
los valores de los bytes desde la cadena en una forma muy primitiva 
de cargar C, B, E, D con la llamada a XLINE para trazar la línea 
desde BC a DE. 

DE se traspasa a BC y se carga DE con la siguiente posición del 
punto, trazándose a continuación la línea entre BC y DE. El proceso 
continúa hasta que GVALE sale con el señalizador de acarreo a uno, 
como consecuencia del fin de los datos de la cadena. 


GVAL8 


La entrada se produce con HL apuntando al parámetro de ca- 
dena. Se carga A con el siguiente carácter que se supone debe ser: 
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por 


DRAE 


opans |] caco beta cota 


PLD SPAR O me seaLA AL prou srt 


vara |] ies rnmenvacos 


cuna |] us sun von 


gua 
OCACARAtO, 


LE UTE E LA CADENA 
TADO AL SUITE PTE 


BITEV=BYTEV e 10+p 
. AS 


TATADINA SE SUEOME TOTALMENTE 


COMMECTA, No Hay ComPRoBacIón De 
UMEROS DIMASIADO MANOS 00€ 
EARACTUNES QUE o SE onGitoS 


Diagrama de flujo 14.2 
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— Un carácter de comillas indicando el final de la cadena 

— Un carácter de coma, indicando el final de un valor. 

— Un digito. Los caracteres que no son dígitos no son rechazados 
sino macerados. 


BYTEV: BYTe EValuado 


Esto se efectúa desplazando y sumando para multiplicar por 10 y 
sumando después el valor binario del carácter que se supone un di- 
gito. No hay comprobaciones y el proceso sigue hasta que se lee 
una coma. 

Ahora que ya podemos trazar lineas, ¿qué hay del borrado de 
las mismas? Esto no es excesivamente dificil. Cambiando el OR (HL) 
en INVPT a XOR (HL), todo funcionará bien siempre y cuando siga- 
mos los pasos con precisión. Debido a que hay, o debe haber, mu- 
chos puntos donde debe realizarse este cambio, la subrutina IVERT 
contiéne una lista de bytes que deben cambiarse. Cada llamada a 
IVERT cambia y vuelve a cambiar los mismos. Para aquellos que 
se pierdan, existe SVERT que prepara todas las opciones en OR para 
el dibujo. 


Listado 14.3 


6620 IVERT LD  A,CINVPT) 


6625 LD B,A 

6630 LD A, (CHNGE) 
6635 LD CINVPT),A 
6640 LD C(INVRX),A 
6645 LD AE 

6650 LD (CHNGE)>,A 
6655 RET 


6660 CHNGE XOR (HL) 
6665 SVERT LD A, (INVPTA 


6670 LD  B,A 

6675 LD A, (XOROF) 
6680 O] 

6685 RET  NZ 

6690 CALL IVERT 
6695 RET 


6700 XOROP. XOR (HL) 
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Las teclas 5, 6, 7 y 8 mueven el cursor en las direcciones obvias. 


s 


f 
x 
Pp 


(«slow») conecta el movimiento lento. 

(«fast») conecta el movimiento rápido. 

conecta el modo de paso a paso. 

hace salir la rutina y entrega la posición del cursor. 


Todas estas teclas deben pulsarse en posición de minúsculas. 


Una llamada LET L = 


MOVEC 


MFAST 


SS 


CIFKE 


Doro 
LIN 


154 


USR ... asigna a L, cuando se Pulsa la tecla 


CALL SVERT 
CALL CURSR 
CALL IVERT 
LD 
LD 
LD 
CALL 
DEFE 
Je 
DEFE 
Je 
DEFE: 
Je 
DEFE: 
JE 
DEFE 
Je 


6835 MFASU 
6845 MSLOW 


6855 MRGHT 
6860 MRL1 


6885 MLEFT 
6890 MALA 


6915 MUPUP 
6920 MUFL1 


6945 MDOWN 
6950 MDWNA 


6975 CURSX 
6980 CURSY 
6985 CIFKF 
6990 


LEFE 
Je 
DEFE 
JP 
DEFE 
se 
NOF: 
LD 
LD 
LD 
JR 
LD 
JR 
LD 
INC 
cr 
JR 
LD 
JR 
LD 
DE 
cr 
JR 
LD 
JR 
LD 
DEC 
cr 
JR 
LD 
JR 
LD 
INC 
ce 
IR 
LD 
JR 
DEFB 
DEFE 
CALL 
CALL 


A 
MEAST 


MSTEF 


MFASU 
Ay (CURSX) 
A 


253 
Z,MRLA 
(CURSX) ,A 
CIFKP 

A, (CURSX) 
A 

Z,MRLA 
(CURSX) A 
CIFKP 

A, (CURSY) 
A 

7 ,¿MDWNA 
(CURSY) A 
CIFKFP 

A, (CURSY) 
A 

188 
Z,MUFL1 
(CURSY) ,A 
CIFKP 
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88 

CROSS 
IVERT 
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7010 FLOA 
7015 
7020 FLOB 


7040 FLOD 
7045 
7050 PLOAT 
7055 .PLOBT 
7060 PLOCT 
7065 PLODT 
7070 CURSR 
7075 
7080 
7085 
7090 
7095 
7100 
7 
7110 
7115 
7120 
7125 
7130 
7135 
7140 
7145 CROSS 
7150 
7155 
7160 
7165 
7170 
7175 
7180 
7185 
7190 XPLOT 
7195 INVRX 


CALL 
Cali 
JR 
DEFE: 
DEFE 
DEFE: 
DEFE 
DEFEs 
DEFE 
DEFE 
DEFE 
DEFW 
DEFW 
DEFW 
DEFW 
LD 
LD 
ADD 
LD 
LD 
ADD 
LD 
LD 
ADD 
LD 
LD 
ADD 
LD 


CURSR: 
IVERT 
CIFKE 
254 
254 
254 
+2 

+2 

+2 

+2 


254 


o 

BC, (CURSX) 
HL, (PLOA) 
HL, BC 
(PLOAT) ,HL 
HL, (PLOB) 
HL,BC 
(PLOBT) ,HL 
HL, (PLOC) 
HL,BC 
(PLOCT) ¿HL 
HL, (FLOD) 
HL, BC 
(PLODT) , HL 
CROSS 


EC, (PLODT) 
XPLOT 
BC, (PLOBT) 
XPLOT 
BC, (PLOAT) 
XPLOT 
BC, (PLOCT) 
XPLOT 


PLOT 
(HL) 


7200 LD (HL),A 
7205 RET 

7210 MEXIT CALL SVERT 

7215 POP 1X 

7220 POP. HL 

7225 FOP DE 

7230 POP. BC 

7235 LD BC, (CURSX) 
7240 LD AS 

7245 LD (23562),A 
7250 LD A,35 

7255 LD (23561),A 
7260 JP TRATS 


OPERACION DE MOVEC 


Esta rutina es tan sencilla que no es necesario dibujar su diagrama 
de flujo sino que trabajaremos directamente sobre el listado. 

SVERT ajusta la rutina de trazado a un estado conocido y des 
pués se ajustan también las variables REPDEL y REPPER a sus va- 
lores mínimos para conseguir el movimiento más rápido posible. La 
posición inicial del cursor se dibuja con una llamada a CURSR. Se 
llama entonces a IVERT para que la siguiente llamada borre la posi- 
ción actual del cursor antes de dibujar la segunda posición, Esto pro- 
duce un movimiento bastante regular. 

La rutina IFKEY espera ahora a que se produzca la pulsación de 
una de las letras minúsculas del menú. Las teclas del cursor 5, 6, 7 y 8 
provocan saltos a MLEFT, MRIGHT, MUPUP y MDOWN, donde los 
bytes de posición del cursor CURSX y CURSY se modifican ade 
cuadamente y se impide que puedan salir fuera de la pantalla, Se 
borra la antigua posición y se traza la nueva antes de retornar a 
CIFKE para la siguiente pulsación de tecla. 

Las teclas x, s y f cargan REPPER con el valor adecuado. Nó- 
tese que un elemento de imagen (un «pixel») cubre verticalmente tres 
líneas de exploración del televisor. .. 


OTROS DETALLES 


PLOA, PLOB, PLOC y PLOD definen los cuatro puntos del rombo 


respecto a la posición del cursor para que los puntos actuales puedan 
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definirse con la adición de CURSX, considerado con CURSY, como 
un valor de dos bytes para estos cuatro puntos. Estas adiciones dan 
Como resultado los puntos PLOAT, PLOBT, PLOCT y PLODT que 
son luego trazados y borrados por CROSS y XPLOT (de acuerdo 
con el estado de INVRX, que es ajustado por IVERT o SVERT). 
Cuando se pulsa la tecla «p», la rutina sale a través de MEXIT, 
la cual restaura los registros, excepto BC, en el que se Coloca la 
Posición del cursor. Como ya es normal en mis rutinas, las posi. 
ciones de las declaraciones de bytes o palabras son importantes. 


DRAWA: Trazado de matriz 


Con esta subrutina y MOVEC se puede construir un sencillo pro- 
grama de dibujo como se indica en el listado 14.56... 

DRAWL busca sus datos como valores de puntos en una lista de 
Parámetros localizada en una línea REM, DRAWA es una variación 
Sobre el mismo tema pero, en este caso, los datos se encuentran 
en una matriz bidimensional Que puede ser definida como: 


DIM ?$1...,2) 


donde «?» significa cualquier referencia válida para una matriz y «...» 
es tan grande como se precise. El par de caracteres 28 (p,1) y 23 (p,2) 
contiene los valores X e Y para el trazado del punto p como valores 
de un byte. Si el valor Y sale fuera de la pantalla, el punto se omite, 
Esto permite interrumpir la secuencia de la linea cuando sea peces. 
sario. La inserción de puntos fuera de la pantalla es un asunto de 
conveniencia. 


Listado 14.54 


7265 DRAWA CALL PCALL 

727 LD HL, (FPARMO) 
LD (DPL+1),HL 
LD A, (DPL+1) 

AND 128+64+32 


CF 128+64 
JR O Z,DL1 
LD DE,40 
CALL ERREX 


LD HL, (DPL+1) 
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S DFLB 


ERX41 


DL2 


NXPER 


DPLC 


INC 
LD 
LD 
INC 
INC 
LD 
CF 
JR 
LD 
CALL 
INC 
INC 
INC 
LD 
cr 
JR 
INC 
LD 
cr: 
JR 
INC 
PUSH 
LD 
ADD 
PUSH 
POP 
POP 
LD 
INC 
INC 
LD 
DEC 
DEC 
EIT 
RET 
PUSH 
PUSH 
LD 
LD 
LD 
LD 


HL 

(DFLE+2) ,HL 
BC, (DFLB+2) 
Hi 

HL 

A, (HL) 


Z,DL2 
DE,41 
ERREX 
HL 
HL 
HL 
A, (HL) 


NZ,ERX42 
Hi 

A, CL) 

o 
NZ,ERX42 
HL 


HL 
(DFLC+2) HL 
HL 

HL 
(DPLD+2) , HL 
BC 


BC 

7,B 

NZ 

BC 

HL 

BC, (DFLC+2) 

A,E 

B,C 

Se 159 


Lista 
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7520 DFLD LD DE, (DFLD+2> 
7525 LD A,D 


CP. 128+64 


IR rm. Z EXT 
CALL XLINE 
POP HL 
POP BC 
JR NXFPR 
LD DE,42 
CALL ERREX 
sado 14,5b . 


30 LET b250 

41 DIM ks (8,2) 

42 FOR x=1 TO b 

93 LET k$(x,1)= CHAS 255 

94 LET k$(x,2)= CHR$ 255 

45 NEXT x 

SO LET k=0 

S1 LET o01=0 

53 LET 12 USR movec 

34 REM LEER POSICION DEL CURSOR 

56 PRINT AT 0,03" ": PRINT ATO 
Oil: POKE 23560,255 p 
57 1F l=01 THEN LET 1=65535 

k=k+1 

57 LET k£(k,2)= CHR$ INT (1/256) 

$9, Cer k+$(k,1)= CHR$ INT (1-256*( INT (1/ 
61 IF k=1 THEN 60 TO 58 

62 LET m= USR drawa 


673 REM K30): 
64 LET ol=1 
é¿S FRINT AT 0,6 
$6 GO TO S3 


OPERACION DE DRAWA 


PCALL localiza el parámetro de la sentencia REM y se utiliza sólo 
el primer parámetro. Se comprueba que sea una matriz o conjunto 
de caracteres exactamente como está especificado. Se produce un 
error 40 si no es una matriz de caracteres, un error 41 si no es bidi- 
mensional y un error 42 si la segunda dimensión no es dos. 

En NXPPR se obtiene el siguiente (o primer) par de puntos. 
HL señala al primer par de bytes. DPLC es una instrucción de carga 
computada, HL se adelanta dos bytes más y DPLD carga el siguiente 
par en DE mediante otra instrucción computada. Este será el primer 
par de bytes la próxima vez. 

Los pares de bytes BC y DE deben ser intercambiados entre si 
para la llamada a XLINE. Esta inversión podria omitirse pero luego 
habria que invertir los pares de puntos en la tabla y esto se aparta de 
lo normal. 

Una vez que BC y DE están ya preparados, se comprueban para 
asegurarse de que ambos están dentro de la pantalla. Si alguno de 
ellos cae fuera de la misma, se omite la rutina de trazado XLINE y se 
obtiene el siguiente par de puntos y se comprueba que BC sea mayor 
que cero. 


PROGRAMA DE DIBUJO EN BASIC 


Este programa, utilizando sólo MOVEC y DRAWA, permite dibu- 
jar figuras bastante complejas. Las teclas operan según lo especi- 
ficado para MOVEC. La tecla «p» provoca la transferencia de la posi- 
ción del cursor hacia 1 y, por tanto, hacia la parte n.* k de k$ (). Un 
punto repetido produce la inserción del marcador de fuera de la pan- 
talla y el cursor puede entonces trasladarse al inicio de la linea si- 
guiente deseada por el usuario. 

Le dejo a usted con el problema de cómo interrumpir la rutina de 
dibujo para que pueda guardar ks (). Sugerencia: puede reservar la 
parte inferior de la pantalla para el menú de alguna rutina. 
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DRAMA 


PLALL 


ENMOR AS 


TPASLADAS 


AGUDA omo 
No ts 008 


E 


ESO ae 
IL SALA AL SIGUE PA 


computa y 
Danos De 5 
CIA da Cor 


tm 
suoo 


1 =) DECANGA oros. 


DATOS DEL Pie PUNTO —DPLE ln 80 


LON DE CARGA DE 108 


FO OM Ev Dl 


Y OLA PANTALLA 


[oesoex.*; Ax9Y 


rmazan a una 
xune [] 


EXT) Y 


ESTAUIA 1 e 


An 
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SINOPSIS 


DRAWL le permite trazar series de lineas conectadas entre si 
desde el punto 1 al 2, de éste al 3, etc. Estos puntos están especi- 
ficados como pares X, Y en el parámetro de la linea REM que puede 
ser de cualquier longitud. Por ejemplo: REM: «X1, Y1, X2, Y2, X3, 
Y3, X4, YA, ... Xn, Yn,». 

DRAWA es similar a DRAWL pero los datos se obtienen de un 
conjunto de caracteres de pares (X,Y). Los puntos que caen fuera 
de la pantalla no se dibujan y, por tanto, pueden interrumpirse las 
lineas insertando puntos fuera de la pantalla en la matriz de datos. 

MOVEC utiliza las teclas 5, 6, 7, 8 para mover el cursor por la 
pantalla. La tecla «p» produce la salida de la rutina con la posición 
actual del cursor. Las teclas x, s y f permiten trabajar en el modo de 
paso a paso, movimiento lento y movimiento rápido del cursor. 

El programa de dibujo en BASIC corresponde al listado 14.4 y 
puede ser elaborado de la forma más conveniente para cada usuario. 
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Capítulo 15 


MISCELANEA 


Se presentan aqui varios detalles que son interesantes aunque 
no merecen un capítulo por si solos. 


BCD O DECIMAL CODIFICADO BINARIO 


Es una forma de aritmética y de representación numérica. Se con- 
sidera de origen americano y de paternidad dudosa. .Permitia a un 
vendedor decir a su posible victima: «... pero nuestra máquina puede 
trabajar con aritmética decimal. No deberia usted complicarse la vida 
con una de las otras. Ellas sólo pueden manejar el (molesto, compli- 
cado, dificil) binario». 

Cada digito decimal puede ser representado por cuatro bits con 
¿los valores 8, 4, 2, 1 en BCD 8421. (Hay otra forma: BCD 4421.) El 
Z80 podrá manejar la aritmética BCD a dos digitos por byte si, des: 
pués de cada operación de adición o sustracción, se inserta una ins 
trucción DAA (Ajuste Decimal Aritmético), y se prevé una rutina 
especial para la escritura de los números. 

Yo creo que es interesante que una máquina pueda trabajar en 
BCD, ya que existen muchos aparatos electrónicos que están prepa 
rados para suministrar, señales codificadas en BCD — cuatro conduc: 
tores por número decimal— y, por tanto, pueden interconectarse 
fácilmente con los sistemas de ordenadores. 


MODIFICACIONES 


Todo lo que he pretendido hacer en este libro es señalar al lector 
la dirección a seguir. No hay ningún libro que vaya a resolverle todos 
sus problemas pero, a modo de ilustración, incluyo algunas rutinas 
más cuya interpretación dejo en sus manos. 
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Listado 15.1 


7610 DEMO1 CALL OPARS 


7615 CALL PCALL 
7620 CALL FIDL1 
7625 JP SATTR+3 
7630 FIDL1 LD HL, (FARMO) 
7635 LD BC,3 
7640 ADD HL,BE 
7645 LD DE,VFARO+8 
7650 LD1 
7655 RET 
7660 DEMO2 CALL FCALL 
7665 CALL FIDLZ 
7670 JP SATTR+3 
7675 FIDL2 LD HL, (PARMO) 
7680 LD BC,8 
7685 ADD HL, BC 
7690 LD DE,VPARO 
7695 CALL LDPR 
7700 CALL LDPR 

CALL LDPR 

CALL LDPR 

CALL LDPR 

RET 

LDPR — LDI 
LD EC,4 
ADD HL,BC 
+ INC DE 
RET 
END 


DEMO1 


Esta rutina entra en SATTR después de la llamada a OPARS y 
PCALL. La sentencia REM que espera encontrar es: 


REM k : 0, 0, 15, 7 
donde k es un atributo (entero) y las constantes son para definir la 


región de la pantalla. 
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DEMO2 


Esta rutina también entra en SATTR pero la sentencia REM es: 


REM al) : 


y los primeros cinco elementos de a() son los que describen la región 
de la pantalla y el atributo requerido. Deben ser todos enteros. Ambas 
rutinas utilizan subrutinas auxiliares. Observe su sencillez, procure 
entender la forma en que actúan y disfrute poniendo algo de su parte 


ENTRADAS MULTIPLES 


Con una gran cantidad de programas, pueden ocurrir cosas desa- 
gradables: 

— el programa A sale por la pantalla 1 

— el programa B sale por la pantalla 2 

Hay una subrutina común, C, en las profundidades del programa, 
que se encarga de la gestión de la pantalla. 

A está dando salida a la pantalla cuando ésta tiene algún de- 
fecto y lo comunica a C, la cual emite un mensaje de error para el 
operador y espera a que se corrija el defecto en la pantalla. 

El programa-B da ahora su salida a la pantalla utilizando la subru- 
tina C y pronto se encuentra en dificultades a menos que C haya 
sido prevista para encargarse del problema. 

La técnica utilizada con más frecuencia consiste en estimar pri- 
meramente el número de llamadas múltiples que pueden actuar al 
mismo, tiempo, sumarle un 50 % (0 más) y preparar después este nú 
mero de páginas, utilizando el registro IX o equivalente, para todo 
el espacio de trabajo necesario para una entrada. Cada celda se en- 
carga de una «página» que deja luego cuando la llamada ha termi- 
nado. Si no hay espacio disponible, el programa que está llamando 
debe ser informado de ello para que espere o haga cualquier otra 
cosa hasta que su llamada pueda ser aceptada. 


LA ACCION RECURSIVA O LA SERPIENTE 
QUE SE MUERDE LA COLA 


La acción recursiva es la que se produce cuando una subrutina se 
llama a si misma. Esto puede ocurrir por accidente en programas muy 
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extensos o de una forma deliberada como resultado de un intento 
de reducción del número de instrucciones u otro caso similar. Siem- 
pre requiere una gran cantidad de espacio en la pila. 

Normalmente, una llamada de una subrutina a sí misma destruirá 
los espacios de trabajo y la dirección de retorno. Por tanto, la rutina 
debe estar preparada para superar este contratiempo. En algunos 
casos, el problema es similar al de las entradas múltiples pero aqui 
los datos están todos almacenados en la pila y una sección de ésta 
se utiliza también como espacio de trabajo. La técnica básica se ilus- 
tra en la Figura 15.1. Usted debe asegurarse de que la llamada de 
la rutina a si misma sea condicional y que, si la condición no se 
cumple, la subrutina podrá abandonar el circulo vicioso y salir al 
mundo exterior. Si no se consigue esto, como la serpiente que se 
muerde la cola, tendrá también un final desagradable. 


NOTAS SOBRE EL CODIGO MAQUINA Y EL ENSAMBLADOR 


Todos los mnemónicos de los códigos de operación son estándar. 
Las operaciones «escondidas», es decir, aquellas con las cuales opera 
el hardware pero cuya existencia no es oficial, también se utilizan. 

Los mnemónicos utilizados para controlar el ensamblador son: 


DEFB — define un byte como un número decimal o un carácter 
+ ASCII 

DEFS — define una serie de bytes utilizando una cadena ASCII 

DEFW- define una palabra de dos bytes 

END especifica el final del código máquina 

EQU requiere una etiqueta, la cual es asignada a una direc- 
ción, que es normalmente la de una variable del sistema 
del Spectrum 

ORG - especifica la dirección de inicio del código ensamblado. 


Un valor de un solo byte puede ser especificado como un valor 
decimal (0-255) o un carácter ASCII encerrado entre comillas. Nótese 
que LD A, *” *”* cargará A con el código ASCII de ** ”. 


CODIGO MAQUINA — LO QUE DEBE Y NO DEBE HACER 
Ensamble el código para que funcione en zonas altas de la me- 


moria pero deje suficiente espacio para la pila entre el final del código 
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PUSH HL) mrmoouccion DE Los 
Push BC) Panawernos enta ma ItCcIONES BAJAS 
EsibnEcOR DEA menor 
SADA DE os PArAMerA 
POPHL — Siesociama si vá 
SUBUrMA ecu 
RECUR LD HL,-18 CA 
ADD HL,SP 
LD SP, HL. 
me Era / 
LO ix(Tm1 


[curo rusia — E ino 
[DATOS REFERENCIADOS MEDIANTE DS 
[oras 

usamos conca, a necun 


PARAMETROS Ot 
ENTRADA / SALIDA. 


DIRECCIONES ALTAS 
y Pela mona 


LD HL(TM1) 

LD BCs 19 bmeccion ocación meoanieia 
ADD HL, BC DIVERSION DEL INCMEMENTO A LA ENTRADA 
LD SP HL 

Rer TM ES UN ESPACIO DE TRABAJO! 


MOTA. LA LLAMADA CONDICIONAL NO SE CUM 
MO SE CUMPLE LO 
SUFICIENTEMENTE PRONTO, EL SISTEMA QUEDARA DESTRUIDO 


Figura 15.1 


y la zona de Gráficos Definidos por el Usuario (Ul del 

(Ver el Capitulo 24 del manual). En general, pos de be O 
de su código se encuentra alrededor de la posición 63500 en una 
máquina de 48 K. No utilice nunca direcciones absolutas (valores 
numéricos) en su código. Las direcciones absolutas deberian utili- 
Ei enente para referirse a las variables del sistema del Spec- 
ral o el Capitulo 25 del manual) o bien a partes espe- 
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e: 


¡Guarde anotaciones en sus programas, especialmente las que se 


refieran a sus errores! 
Siempre que sea posible conviértanse todos los nombres en 


mnemónicos. 
Escriba sus programas lo más directa y claramente posible. (Un 
programa que funciona es mejor que nada. (¡Hay pocos conductores 
que miren debajo del capó!) 
Tenga siempre una idea clara de lo que desea hacer antes de 
empezar. 


170 


